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RACE-COURBES-— 


Ce programme est un utilitaire 
mathématique pouvant tracer la 
courbe représentative d'une 
fonction quelconque. 


SZ 
AN 


’écran se compose de trois fenê- 
tres : 
— Dans la plus grande, figure le tracé 
de la courbe. 
— Dans la plus petite, sont affichées 
les informations suivantes : 
-iet j : échelles du repère 
- I: intervalle du tracé 
- X : partie de l’axe des abscisses visible 
sur l’écran 
+ Y : partie de l’axe des ordonnées visi- 
ble sur l’écran 
+ 2 : origine du repère 
— La dernière fenêtre sert à la saisie 
des différents paramètres. 


LO MRRRRRNERNMNNEMNNNMENNENNNEES LA 
###1 


20 ‘x: LB 
4 

30 '# TRACE COURBES )LC 
; 

40 8 ------------- LD 
4 

50 ‘1 le 19/01/90 LE 
4 

60 ’# par Hadja Abdoul-Carise >LF 
4 

70 '# LG 


Abdoul-Carime HADJA 





Valable pour CPC 
464 - 6128 


Pendant le tracé l’abscisse d’un point 
s’affiche en rouge et son ordonnée en bleu. 

Les coordonnées des points sont ar- 
rondies à 10°, Pour plus de précision se 
servir des touches “1” et “2” du pavé 
numérique. 


Pendant le tracé de la courbe, vous 
pouvez : 

— appuyer sur “SPACE” pour arrêter 
le tracé, 

— appuyer sur “ESC” pour “pauser” 
et jeter un coup d’œil sur les coordon- 
nées ensuile sur une aute touche pour re- 
lancer. 


PAVE NUMERIQUE : 
TOUCHES DE FONCTIONS 
—“O” : Permet d’EDITer directement 
la ligne concernant les paramètres du tracé 
qui sont : 
* (1, j) échelles du tracé 
- (xi, x) intervalle du tracé 
* (x0, yo) coordonnées de l’origine 
Attention ! Ne pas effacer les deux 
points après les variables. 


80 PHMMAUNEENNEENNEENNNEENNEUENNEES )LH 
ÉFEE 

90 )LJ 
100 * ___REDEF. CLAVIER & PRESENTATI >RB 
ON 

110 KEY 7,"sqr(":KEY 8,"abs(":KEY 9 WE 
,"int(":KEY 4,"cos(":KEY 5,"sin(":K 
EY 6,"tan(":KEY 1,"x=":KEY 2,":?fny 
"+CHR$(13):KEY 3,"run 180"+CHR$(13) 
:KEY 0,"cls:edit 200"+CHR$(13):KEY 

10,"clstedit 260"+CHR$(13):KEY 11," 
run {70"+CHR$(13) 

120 KEY DEF 28,1,43,59:KEY DEF 29,1 
»42,58:KEY DEF 17,1,40:KEY DEF 17,1 
,40,91:KEY DEF 19,1,41,93:KEY DEF 2 


V 


LA 


—“,” : Permet de changer la fonction 
dont on désire le tracé 

— “ENTER” : Exécute le tracé de la 
courbe représentative de la fontion en- 
trée 

—“1” : Demande l’abscisse d’un point 

—“2” : Affiche son ordonnée 

Remarque : Pas besoin d’appuyer sur 
“ENTER” après avoir entré l’abscisse 

—“3” : Même fonction que “ENTER” 
mais n’efface pas l’ancienne courbe 

_—“4” : Affiche “cos(” 

_“5” : Affiche “sin(” 

—“6” : Affiche “tan(” 

—“7"” : Affiche “sqr(” 

—“8” : Affiche “abs(” 

—“9” : Affiche “int(” 


Par ailleurs, les parenthèses peuvent 
être obtenues directement en appuyant 
sur les touches des crochets et “+” et “*” 
peuvent être obtenus directement sans 
appuyer sur “SHIFT”. 


(Attention ! Pour les claviers AZER- 
TY *=“M” += "ù”). 


6,1,58:MO0DE 1:SYMHBOL AFTER 147:G0SU 

B 510 

130 INK 0,0:INK 1,6:INK 2,14:1INK 3, >CB 
25 

140 PAPER O:BORDER O:WINDOW #1,27,3 dHE 
9,3,7:PAPER#1,1:PEN#1,3:WINDOW #2,1 
,25,1,25:PAPER#2,0:PAPER#2, 0 

150 PEN 3:LOCATE 27,1:PRINT'TRACE C >BJ 
OURBES" :LOCATE 28,25:PEN 1:PRINT CH 
R$(164) ; :PEN 2:PRINT"1990"; :PEN 3:P 
RINT".";:PEN 2:PRINT'HADJA" 

160 PEN 2:FOR a=3 TO 23:LOCATE 26,a >AM 
:PRINT CHR$(149):LOCATE 40,a:PRINT 
CHR$(149):NEXT:LOCATE 26,2:PRINT CH 
R$(150) ;STRINGS (13, 154) ;CHR$ (156) :L 


OCATE 26,8:PRINT CHR$(151) ;STRING$( 
13,154) ;CHR$(157) :LOCATE 26,24:PRIN 

T CHR$(147) ;STRINGS (13, 154) ;CHR$(15 

3) 

170 WINDOW 27,39,9,23:PAPER 3:PEN 1 >QN 
:CLS#1 :CLS#2 

180 CLS:ORIGIN 0,0:PLOT 0,0,2:DRA# DUB 
0,398:DRAN 400,398:DRAW 400, 0:DRAU 

0,0 

190 ?_ DONNEES & CALCULS & TRACER >TA 


xi=-20: >KH 
x0=0: ÿ 


200 i=5: 
xf=20: 


j=5: 


o=0 

210 i=ABS(INT(i))#4: j=ABS(INT(j))#4 >LC 
:x0=INT(x0):yo=INT(yo):p=ABS(p):0RI 

GIN 200,200:TAG:PLOT -6,6,2:PRINT C 

HR$ (227) ; : TAGOFF:GOSUB 370:0RIGIN 2 
00+xo#i,200+yo#j:1F xixmin THEN xi 
=xain 


220 IF xf>xmax THEN xf=xsax )1B 
230 FOR x=xi TO xf STEP 0.1 >UV 
240 ON ERROR GOTO 530 >PK 
250 p=Pl:n=INT(x):x=ROUND(x, 1) )AZ 
260 DEF FN y=C0S(y#2.2)#SIN(xt#x) >AB 
270 ON BREAK GOSUB 480 >Qu 
280 xi=xti:y1=FNy#j >PF 
290 IF t=0 THEN GOSUB 490 >TA 


300 IF er=11 THEN MOVE x,yy:er=0 EL >TF 
SE DRAY x1i,y1,3 
310 ’ AFFICHAGE DES COORDONNEES >RE 








320 PEN 1:PRINT USING" ####4.8";x >EK 
:PEN 2:1F FNy=ROUND(FNy,0) THEN PRI 
NT USING" *# ##4#4";FNy ELSE IF FNy= 
ROUND(FNy,1) THEN PRINT USING" # #4 


844.8"; FNy ELSE PRINT USING"  #H#4 
4.8"; FNy 

330 IF INKEY(47)=0 THEN GOTO 360  >YW 
340 NEXT >EC 
350 ? DESSIN DU REPERE__  DRJ 


360 ORIGIN 0,0:PLOT 0,0,2:DRAW 0,39 >ZB 

8:DRAW 400,39B:DRAW 400,0:DRAU 0,0: 

PRINT CHR$(7):PEN 1:0RIGIN 200,200: 

END 

370 FOR x1=0 TO -196 STEP -i JUF 

380 PLOT x1,-196,1:DRAW x1,196:PLOT >DA 
-11,-196,1:DRAW -x1,196 

390 NEXT >EH 

400 FOR y1=0 TO -196 STEP -j >UB 

410 PLOT -198,y1,1:DRAW 198,y1:PLOT >DG 
-198,-y1,1:DRAU 198, -y1 

420 NEXT )EB 

430 xr=xoti:yr=yo#j:PLOT -200,yr,2: >LB 

DRAW 198,yr:1F xr>198 THEN RETURN E 

LSE PLOT xr,-200:DRAY xr,200 

440 ? AFFICHAGE DES "INFOS" DRJ 


450 xain=-(200+xr)/i:xsax=(400+xmin >KH 
#i)/i 
460 ynin=-(200+yr)/j:ymax=(400tymin >KW 


*j)/j 

470 CLS#1:PRINT#1,USING"i=### :j=#8 DUX 
#";i/45;j/4:PRINTEI,USING"I "8444: 644 

46" ;xisxf:PRINTE1, USING" "8884: 8444 
S"sxmin;xmax: PRINT, USING'Y"#444;4 
BH" ;ynin;yaax:PRINT#1,USING"?(4#4 


#:#H4D)";x0; yo 

480 RETURN >ZH 
490 HOVE xiti,yl:t=1:RETURN )IN 
500 ? REDEF. DES CARACT. ___ DRF 


510 SYMBOL 147,25, 26, 28,31, 15:SYMBO >1B 
L 150,0,0,0,15,31,28,26,25:SYMBOL 1 
51,25, 26, 28,31, 31, 28, 26, 25:SYHBOL 1 

53,152, 88,56, 248, 240:SYMBOL 156,0, 0 
,0,240,248,56,88,152:SYMB0L 157, 152 
,88,56, 248, 248,56, 88, 152:RETURN 

520 * TRAITEMENT DES ERREURS _ >RH 


530 IF ERRO11 THEN CLS:PEN 1:PRINT >DA 
CHR$(7);" - ERREUR: -" 

540 IF ERR=5 THEN PRINT" - SQR(-x) 
-" 

550 IF ERR=6 THEN PRINT" üyü>MAXIMU >HL 
|, 

560 IF ERR-11 THEN x=1+0.05:GOSUB 5 >WJ 
80:er=11:G0T0 250 


)EE 


570 END >TF 
580 IF FNy>0 THEN yy=ymaxt j+1000 >AA 
590 IF FNy<O THEN yy=ynintj-1000  >AZ 
600 RETURN 


ALLO 
AMSTAR & CPC 


Attention, notez bien ce qui suit : 

Afin de mieux vous servir, tous les mercredis 
de 14 h à 17 h, la rédaction se tient à votre dis- 
position au 99 52 98 11 pour tous renseignements 
techniques. En dehors de ce créneau les répon- 
ses techniques se font par courrier (n’oubliez pas 
de mentionner votre adresse et joignez un tim- 
bre pour la réponse) ou bien par Minitel sur le 


3615 code : MHZ. 


)1B @ 


Marc GIANETTI 
Valable pour CPC 6128 





Ce programme d'aide à la 
programmation m'a donné 
entière satisfaction pendant un 
an. Il a été inspiré du 
programme “TURBO 
CLAVIER”, de Christian 
KEHREN, paru dans CPC HS 
n° 9 et, de quelques idées 
données par des camarades 
professionnels. 


U ne page de présentation étant su- 
perflue puisqu'il s’efface dès son 
utilisation, PROG comprend quatre par- 
tics : 

1- Buffer définissant le nombre de 
caractères des touches reprogrammées. 

2- Choix des couleurs, pour un 
meilleur confort visuel. 

3- Suppression des blancs BASIC. 

4- Redéfinition des touches. 


La partie la plus intéressante est le 
buffer permettant la redéfinition en 
nombre pratiquement illimité de carac- 
tères pour la reprogrammation des tou- 
ches. Vous savez que le CPC est limité 
à 127 caractères. Cc petit programme 
(ligne 20 à 140) permet d’en choisir le 
nombre désiré (ligne 20). Mais attention, 
par précaution, ne descendez pas en des- 
sous de 300, il devient capricieux. 


La 2ème partie n’appelant pas de 
commentaires particuliers, atardons nous 
sur la 3ème qui permet la suppression des 
blancs du BASIC grâce au pokc de la ligne 
270. Cette instruction, qui peut être uti- 
lisée en mode direct, est très précieuse 
pour économiser de la place mémoire. 
Elle m’a fait gagner jusqu’à 15 % sur des 
programmes paru dans des revues. Bien 
entendu, elle ne supprime pas les espa- 
ces des chaînes de caractères. D’autre part, 
il vaut mieux ne pas l’utiliser pour la saisie 
de listings sur lesquels on veut vérifier 


UTILIPAII?E 








les codes de contrôle puisque ce genre 
de programme ne tient pas compte des 
blancs BASIC. 


La dernière partie (ligne 280 à 590) 
permet, à l’idée de chacun, de redéfinir 
des touches. Pour ma part, je n’ai pas 
reprogrammé KEY 140 car c’est le RUN", 
ct, je n’ai pas touché aux touches I, G, 
H, J,K, X qui correspondent aux codes 
de contrôle principaux. Mais il faut sa- 
voir, que, toutes les touches étani repro- 
grammées on ne peut pas lancer un pro- 
gramme qui aurait lui aussi des touches 
reprogrammées sans avoir fait un RESET. 
Il faut donc penser à la sauvegarde avant 
tout essai. 


PROG ne prend presque aucune place 
en mémoire à l’utilisation, et permet par 
sa facilité d'emploi : 

— de gagner du temps dans la program- 
mation, même à la conception, 

— d’éviter bien des erreurs pendant 
la frappe des listings, 

— de donner, sans soucis, Ie minimum 
de place mémoire aux programmes. 


Pour ma part, j'utilise PROG avec de 
petites étiquettes adhésives que je colle 
sur la face avant des touches reprogram- 
mécs, et Loules mes instructions s’écri- 
vent cn minuscules pour faciliter le con- 
trôle après avoir listé un programme. 


PROG pourrait être amélioré avec un 
buffer augmentant le nombre de touches 
à reprogrammer. Je remercie par avance 
celui ou celle qui possèderai ou trouve- 
rai un {el programme et qui nous le fe- 
rais savoir. En attendant je souhaite à tous 
du bon travail avec PROG. 











30 b=300:’ taille du buffer mini=300 caracteres 
40 x=HIMEMH-10-b 

50 MEMORY x 

60 POKE x+1,17 

70 POKE x+2,(x+10-256%INT((x+10)/256)) 

80 POKE x+3,(INT(x+10)/256) 

90 POKE x+4,33 

100 POKE x+5,(b-256#INT(b/256)) 

110 POKE x+6, INT(b/256) 


120 POKE x+7,195 >EC 
130 POKE xt8,21 JNJ 
140 POKE x+9,187 . EH 
150 CALL x+1 >YK 
160 MODE 2:S-26:P=1:INK 1,S:INK 0,P:BORDER P >HD 


170 CLS:LOCATE 20,1:PRINT CHR$(24);" QUEL ECRAN VOULEZ- >GD 
VOUS UTILISER :";CHR$(24) :LOCATE 30,6:PRINT CHR$(24);" 

NS ";CHR$(24);" -NOIR" 

180 LOCATE 30,9:PRINT CHR$(24);" ‘BS ";CHR$(24);" - BLA DHN 








Q 140 F non abonné 
Q 110 F abonné 











[Sl 
[ol 
2] 

Nom : Prénom : 

Adresse : 

Code postal : Ville : 














Date : Signature L 


Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre des Editions SORACOM. Re- 
tournez le coupon ou une photocopie à : Editions SORACOM - La Haie de Pan - 35170 BRUZ 








NC":LOCATE 30,12:PRINT CHR$(24);" *08 ";CHR$(24);" - OR 
ANGE":LOCATE 30,15:PRINT CHR$(24);" °VS ";CHR#(24);" - 
VERT" 

190 LOCATE 30,19:PRINT CHR$(24);" ‘return& ";CHR$(24);" 
- FIN" 

200 CALL &BB18:1F INKEY(46)C>-1 THEN BORDER 0: INK 0,0: 

NK 1,23:G0T0 200 

210 IF INKEY(54)C-1 THEN BORDER 13:INK 0,13:INK 1,0:G0 

TO 200 

220 IF INKEY(55)<)-1 THEN BORDER 9:INK 0,9:INK 1,0:GO0T0 
200 

230 IF INKEY(34)C>-1 THEN BORDER O:INK 0,0:INK 1,15:G0T 
0 200 

240 IF INKEY(62)<)-1 THEN 200 

250 IF INKEY(18)€)-1 THEN SOUND 1,50,20:SOUND 1,150, 20: 
SOUND 1,80,30:G0T0 270 

260 PRINT CHR$(7):GOTO 160 

270 CLS:LOCATE 10,10:PRINT"SUPRESSION DES BLANCS BASIC 
(Qui/Non)" 

280 CALL &BB18:1F INKEY(34)C>-1 THEN CLS:G0TO 630 

290 CLS 

300 KEY 126,"cat"+CHR$(i3) 

310 KEY 129,"edit " 

320 KEY 130,"inkey" 

330 KEY 131,"save"+CHR$ (34) 

340 KEY 132," load"+CHR$(34) 

350 KEY 133,"nerge"+CHR$(34) 

360 KEY 134,"renus " 

370 KEY 135,"auto " 

380 KEY 136," input "+CHR$(34)+CHR$(34)+"," 

390 KEY 137,"list " 

400 KEY 138,"delete " 

402 KEY 139," locate " 

410 KEY DEF 67,1,113,81,141:KEY 141,"chr$l":°Q 

420 KEY DEF 59,1,119,87,142:KEY 142," while ":'4 

430 KEY DEF 58,1,101,69,143:KEY 143," for i=0 to ":'E 

440 KEY DEF 50,1,114,82,144:KEY 144,"read ":'R 

450 KEY DEF 51,1,116,84,145:KEY 145,"return":"T 

460 KEY DEF 43,1,121,89,146:KEY 146, "goto ":'Y 

470 KEY DEF 42,1,117,85,147:KEY 147," window ":'U 

480 KEY DEF 34,1,111,79,148:KEY 148, "pen ":'0 

490 KEY DEF 27,1,112,80,149:KEY 149, "paper ":'P 

500 KEY DEF 69,1,97,65,150:KEY 150,"c1s":'A 

510 KEY DEF 60,1,115,83,151:KEY 151, "gosub ":'S 

520 KEY DEF 61,1,100,68,152:KEY 152,"data ":'D 

530 KEY DEF 53,1,102,70,153:KEY 153," plot “:'F 

540 KEY DEF 36,1,108,76,154:KEY 154,"ink ":'L 

550 KEY DEF 71,1,122,90,155:KEY 155, "sound ":'Z 

560 KEY DEF 62,1,99,67,156:KEY 156,"call &":°C 

570 KEY DEF 55,1,118,86,157:KEY 157, "wend":'V 

580 KEY DEF 54,1,98,66,158:KEY 158,"drau ":'B 

590 KEY DEF 46,1,110,78,159:KEY 159,"next":"N 

620 DELETE 10- 

630 ’ supression des blancs basic 

640 POKE &ACOO, 255 

650 GOTO 290 

660 END 
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MF 
>RZ 
)DE 
)BE 
>CX 


NE 
AD 


>UK 
VB 


)RH 
UF 
oüL 
>NN 
>PV 
)uC 
>WN 
)X] 

> 

>PD 
)JU 
>PL 
RE 
»RN 
>K4 
>NC 
>UH 
)LN 
>PA 
>LR 
>PK 
>KD 
>ND 
)HL 
)HB 
>LR 
)LF 
)JG 


"NN 


>LQ 
>KU 
Kk 
>LC 
>NK 
>RK 
>LN 
>2J 
STF @ 






'ATTLE L'L Ul maintenant 


TADS 
“hors ins Le É 22 h, 


à 7 pr Mgr: dima n ch e 


es MICROMANIA OUVRE UN NOUVEAU 
. MAGASIN AUX CHAMPS ELYSEES 
| où vous trouverez tous les derniers logiciels 
| pour Atari ST, Amiga, PC, Amstrad, 
. et tous les derniers jeux pour consoles : 
. GAMEBOY de Nintendo, LYNX de Atari, 
PC Engine de NEC, MEGADRIVE de Sega. 


Pour fêter l’ouverture, 
| MICROMANIA offre des cadeaux 
| déments à tous les clients du 
magasin jusqu’au 30 Juin. 


MICROMANIA CHAMPS ELYSEES 
GALERIE DES CHAMPS (Galerie Basse) 
84, avenue des Champs Elysées 

Métro Georges V 

RER Charles de ue Etoile 
































“| MICROMANIA au FORUM DES HALLES 
| LE PLUS GRAND MAGASIN D'EUROPE 
| spécialisé en logiciels de jeux. 

… 135 m? de JEUX pour AMSTRAD, ATARI ST, 
| AMIGA, SEGA, PC COMPATIBLES, 





















| Un super rayon de consoles de jeux: | 
| PC Engine de NEC, LYNX de Atari, 
«| GAMEBOY de Nintendo, 
| de MEGADRIVE de Sega. 


FORUM DES HALLES 
5, rue Pirouette et 4, Passage de la Réale 
Niveau — 2 

Métro et RER Les Halles 












Tél. 45.08.15.78 Tél. 42.56.04.1 | 
PRINTEMPS HAUSSMANN CENTRE COMMERCIAL En ers | 
64, bd Haussmann VELIZY 2 fus grand Sr parisien 
; se sue sous-sol NT: 1 PRINTEMPS VELIZY se ses en stock 

aris + de 
Métro Havre-Caumartin EL LL a Er 15 Fes Musique-Microl + 





Tél. 42.82.58.36 
PRINTEMPS NATION CENTRE COMMERCIAL 


2125, C de Vi - 4° 
Tél. 4371 1241 Tél. 91.44 00.66 
dilJuleil) Ed AA rANE: 


LA MANETTE [ZX] 
KONIX 


SPEEDKING 













LA MANETTE [TX] 
QUICKJOY 3 
SUPERCHARGER 









10 DISQUETTES 3 1/2 DF DD 
GARANTIES A VIE 99F 


10 DISQUETTES 
AMSTRAD 195 F 











VEAUTES son’. 
sr NOD'ABORD 


CHEZ MICROMANIA ! 


AS AS AE LR RS à PSE SV 
un 





















1 2 JEUX FANTASTIQUES | OFFRE SPECIALE 
| 149/199F | POUR FETER L'OUVERTURE 
+ STORMLORD (arcade) + GARY LINEKER HOT SHOT (oo) Ml DU MAGASIN MICROMANIA CHAMPS ELYSEES 











+ SUPER SCRAMBBLE (moto) + ARCADE FOOT BALL (foot) 

+ SKATE CRAZY (sim. skate) + TECHNOCOP {arcade) 

+ NIGHT RAIDER {sim. vol) + MOTOR MASSACRE {arcade) 
+ ARTURA (avent./action) + MARAUDER {(shoot’em up) 

ha _DARK FUSION (arcade) GE H. A. TE, (shoot'e em " up) 


= LA COLLECTION 
175/245F 
LES 15 LOGICIELS QU’IL FAUT ABSOLUMENT AVOIR 


+ ARKANOID [Casse-brique) + CAULDRON {arcade action) 
+ BATMAN (jeu d'action) + THE GREAT ESCAPE (action) 


3 
“| (Valable dans tous les naine Micromania 
et en vente par correspondance jusqu'au 30 juin) 














CABAL 59/99 F COMPILATIONS 
OPERATION LES BEST DE US GOLD99/149 F | 
THUNDERBOLT 59/99 F EPYX ACTION ND/99 F 
| LES INCORRUPTIBLES 59/99 F LA COMPIL OCEAN  59/99F | 

| STRIDER 59/99 F HEAT WAVE 59/99 F | 
FORGOTTEN WORLDS 59/99 F JOYSTICK THUNDER 59/99 F 


COMPILATION 1 OFFRE SPECIALE 

















































+ RAMBO (combat guerrier) + YIE AR KUNG FU (karaté) 99/149F 99/149 F 
_ | + GREEN BERET (combattant) + MAG MAX [arcade espace) + SILKWORM OPERATION THUNDERBOLT 
_ | + CRAZY CARS {simulation auto) + TOP GUN {sim. de vol) + DOUBLE DRAGON + LES INCORRUPTIBLES 
| + MATCH DAY {sim. de football) + GALVAN (jeu d'arcade) + XENON 


| + MATCH POINT {sim. de tennis) + SORCERY {jeu d'aventure) + GEMINI WING 


+ KONAMIS GOLF sim. de golf) 





LES 100 % A D'OR 


149/199F 
LES BARBARES Les 4 meilleurs scores 


149/199F de Amstrad 100 % 


+ BARBARIAN 2 + OPERATION WOLF 
+ RENEGADE 3 + AFTERBURNER 
+ DOUBLE DETENTE + RTYPE - + TITAN 
+ GUERILLA WAR + 1 autocollant inédit 
+ 1 super poster de Miss X 


COMPILATIONS 


LES VAINQUEURS 149/199F 12 JEUX EXCEPTIONNELS 129/149F 
+Forgotten Worlds +Cybernoïd 

+Thunderblade +Deflektor 

+Tiger Road +Mask +Blood Brothers 

+Last Duel +Nebulus +Hercules 





LES AVENTURIERS 


149/199 F 
+ INDIANA JONES ACTION 
+ THE STRIDER 
+ VIGILANTE 
+ FORGOTTEN WORLDS 


DRIVERS 
149/199F 


+ CHICAGO 90 
+ HIGHWAY PATROL 
+ QUAD 
+ GRAND PRIX 500 


LES FANATIQUES 
ND/249 F 


+ FIRE AND FORGET 
+ L'ARCHE DU 





SUPER PROMOTION 
MANETTES ET CABLES 
Manette US GOLD 109 F 
(plus une montre digitale GRATUITE) 
Manette NAVIGATOR 149 F 
Megablaster à Microswitches 79 F 
PRO 5000 129 F 
CHEETAH MACH1 129 F 
CHEETAH 125+ 85 F 
QUICKJOY JUNIOR 59F 
QUICKJOY JUNIOR STICK 69 s 
QUICKJOY 2 PILOT 79 
QUICKJOY TURBO 99 F 
QUICKJOY VI JET FIGHTER 149 F 
QUICKJOY V SUPERBOARD199 F 
QUICKJOY INFRA ROUGE 399 F 
QUICKJOY M5 PC COMP. 199 F 
CORDON pour branchement 


de deux manettes 49 F 



























+Blasteroids +Northstar +Exolon 
LES MAITRES NINJAS 129/179F  *Les Maîtres de l'Univers 


+Venom Strikes Back 


+Double Dragon 
8 +Marauder + Ranarama 


+ Last Ninja 2 
EPYX 21 CHALENGE OCEAN DYNAMITE 149/199F 
OLYMPIQUE 1491997 +Platoon 

110 métres Haies, lancer du +Predator-Kamov 

marteau,saut à la perche, barres . Na ss Fe 
assymétriques, cyclisme sur piste, Rolling Thunder Due 
plongeon, tir à l'arc, anneaux, 


plongeon de haut vol... GAME SET MATCH 2 149/199F |. : 
LES JUSTICIERS 145495F  +Match Day 2 5% 
LES 3 MEILLEURS JEUX +Basket Master 

DE COMBAT DE CHEZ OCEAN! +Super Hang On 

+Dragon Ninja +Champion Chip Sprint 

+Robocop +Track and Field 

+Rambo 3 +Cricket+Snooker+Golf 


CAPITAINE BLOOD 
+ SUPER SKI 
+ TITAN 
+ GRAND PRIX 500 
+ CRAFTON ET XUNK 


Câble Magnéto AMST. 49 F 
Câble d'extension pour Joystick 49 F 
Câble de TELECHARGEMENT 49F 
HOUSSE DE PROTECTION 

Housse CPC 464 COUL. 89 F 
Housse CPC 464 MONO 89 F 
Housse CPC 6128 COUL. 89 F 
Housse CPC 6128 MONO 89 F 
DISQUETTES VIERGES 

4 Cassettes vierges 29 F 
4 Disquettes vierges 99 F 
10 Disquettes vierges 195 F 


DOUBLE ACTION 
149/199F 
+ DOUBLE DRAGON 
+ WEC LE MANS 
+ REAL GHOSBUSTERS 
+ DALEY THOMPSON OLYM. 














Champs Elysées 
Non HAE maintenant acheter, 


LE jeux ACLUIE NOUY ss 
[LE ‘à 22h, MES 


même le dimanche : (à 


SUPERS HITS SUR UNE DISQUETTE 
POUR 99 F SEULEMENT 


Les meilleurs titres jamais développés sur Amstrad CPC 
réédités dans une collection exceptionnelle. 


ui 


ÿ 


ÀMS Na ME "M Vous po 


en 































DES HITS FABULEUX 


























































































NOUVEAUTES HIT PARADE [ N°1  Arkanoid 1 N°11 Bubble Bobble 
BLACK TIC + Arkanoid 2 + Flying Shark 
A NE PAS eat É 
MANQUER : CABAL (Casse Brique) Arcade 
CHASE HQ 
BLOODWYCH 149/199F M GYBERBALLe ne cu : be dorer: | 
s + Gaunitlet 2 + Infiltrator 
BOMBER 149/199F DOUBLE DRAGON 2 : : 
AD re Lane OU = ——_— 
D 7 HARRICANA 
INTERNAT. 3D TENNIS 99/149F ITALY 90 + Road Blaster Target Renegade 
KLAX 99/149F NINJA WARRIORS Course auto) Combat de rue 
SECRET AGENT 99/149F | OCEAN BEACH VOLLEY : 
SHADOW WARRIORS 99/149F M} RAINBOW ISLAND N°4 Enduro Racer N°14 Top Gun 
SIM CITY ND/199F s + Super Hang On + Slap Fight 
Course moto Arcade 











N°5 International Karaté + 


+Yie Ar Kung Fu 







AUTRES 




































































































NOUVEAUTES * Karaté # 
BOMBUZAL 99/149F " 
DARK CENTURY 139/179F| N°6 Grysor N°16 Daley Thompson 
ESCAPE FROM PLANET  99//149F | + Green Beret + Super Test 
PLAYER MANAGER 139/179F | | Combat (Sport) 

PINBALL SIMULATOR  ND/209F | INDIANA JONES | 
POP RS Fe Dai à KICK OFF à 139/179E N°7 California Games N°17 Matchday 2 (foot) 
see ICAL re 49F LES INCORRUPTIBLES 99/149F + Winter Games + Basket Master 
STORMLORD 2 90/149F LE MANOIR DE MORT.  ND/199F (Sim. de sport) Foot-Basket 
THE CYCLES 99/169F LOAD RUNNER 149/199F = " = 
TURRICAN 99/149F MEURTRES AVENISE ND/195F N°8 Street Fighter N°18 Wonderboy 
| VENDETTA 99/149F RTE ROUE + Tiger Road + Wizzball 
WORLD CUP SOCCER 90  99/149F NINJA SPIRITS 99/149F Combat de rue ___ (Arcade) 
OPERAT. THUNDERBOLT  99/149F N°9 Platoon N°19 Quartet 
é P47 129/179F 
A PINBALL MAGIC 149/199F , Predator + Rampage 
PIPEMANIA 139/179F ____ (Action) Arcade 
NTIE SCRABBLE DE LUXE ND/225F 
DE GAR un oe | RE NN 
. raie 
US TEENAGE QUEEN é2506 L Supersprint * re n Field 
SUR THE STRIDER 99/149F ourse auto (Sport) 





J CIE TURBO OUT RUN 99/149F 
TUSKER 99/149F 
ais LOG VIGILANTE 99/149F LES POINTS MICROCLUB : Vous les trouverez sur les 
de or 139/179F boîtes des jeux. En les collectionnant, vous pourrez obtenir 
X-OUT 99/149F 6 é 
gratuitement les nt exclusifs a MICROCLUR. 


BON À COMMANDE EXPRESS à à eve: à  MICROMANIA - B.P. 3 - 06740 CHATEAUNEUF 






































ci te 
| TITRES Prix 
1 ARE EU VS EME PO EDP D EU AA ES 
T.Shirt PLAY AGAIN 
PAYEZ PAR CARTE BLEUE / INTERBANCAIRE de M. L. XL (entourez votre taille) 
T.Shirt HIGH SCORE 
Participation aux frais de port et d'emballage + 18F | L_ 1 1 | Era | es | (es | __ M. L. XL. (entourez votre taille) 
Précisez cassette [] Disk [] Total à payer = F Date d'expiration — / — Signature : + PORN 


























Règlement : je joins CI un chèque bancaire [I CCP C] mandat-lettre [1 je préfère payer au facteur à réception (en ajoutant 19 F) pour frais de remboursement - N° de Membre (facultatif) 111 1 1 | | | 


ENTOUREZ VOTRE ORDINATEUR DE JEUX : AMSTRAD 464 . AMSTRAD 6128 . SEGA . PC 1512. ATARI-ST . AMIGA . NEC . LYNK . GAMEBOY . MEGADRIVE 

















F1,5A,A7,F1,8 


RER Te a. 'E © 


= = + 


F1,5A,A7,F2 


F1,DA,E7,F1,D: 


1,5A, A7, F2 
DA,E7, 


F1,DA,E7,F1,DA 











.# > 

<< L en 3 
244 Frs 8 
co Addeen. +48 
EE) EE 
sssseresgeraiss 
codddesdadeuss 
RER LEE 
PÉECECIPELEEE 
ÉVRR LT CLCSEE 
S “ ARBRES 7 À 

QUES c: 
—_ 


APT ONU TA UD Te + | LS 


Valable pour CPC 
464-6128 


Voici un petit programme qui 
va faciliter la vie de beaucoup 
de lecteurs. 

En effet, nombre de 
programmes publiés dans nos 
pages sont très intéressants 
mais leur utilisation nécessite 
des heures de travail 
ininterrompus devant votre 
CPC pour saisir les dizaines de 
pages de DATAs. 


C e programme vous permet main- 
tenant de charger les lignes de 
DATA dans un fichier ASCII et de s’ar- 
rêter à tout moment. Ainsi le fichier de 
DATA original pourra être reconstitué 
en utilisant les commandes LOAD pour 
le premier fichier, MERGE pour les sui- 
vants et enfin SAVE pour le sauvegar- 
der. 


SRE EP CSC CS CCS, Can 


UFILPFAISE 


DATALOAD 






{ 



















MEL Te 
2 sui ist 
285 )s58888#2% 
24): SU8S588#8 
18: 2866623248 
SJ: SU0UH#88% 
FL 5+688823344 
SI: SEHsU#82% 
Sig “583338 
#s ‘s#83s 
ss 


RIABTRA comme oran Conténete LDE4 


FONCTIONNEMENT 
DU PROGRAMME : 


— Le programme demande sur quel 
support (cassette ou disquette) doit se trou- 
ver le fichier. 

— S’il s’agit de la cassette, le pro- 
gramme demande s’il est besoin d’ini- 
tialiser les commandes cassette (TAPE : 
dans le cas d’un 464 avec DDI-1 ou 6128 
avec cassette). 

— S'il s’agit de la disquette, le pro- 
gramme affiche la liste de tous les fichiers 
de type ASCII (*.asc). 

— Le programme demande ensuite le 
nom du fichier en sortie. 

— Ensuite on demande le numéro de 
ligne de départ et l’incrément pour les 
lignes suivantes. 


— Puis le nombre de DATAs par li- 
gne. 

— Ensuite si le signe “&” est utilisé 
ou non. 


p.CU.CO.Ca.C8.C@.Ca.Ca. Co. Ce. 
0. CS. 


PC CI. CASE C2 CIS 
3,C3.C3.C2.F0.F0.F0.F0.F0.F0.Fi 


8 












70.D8. 70.F0.30.D8,F0. 30,6. 
.F0.F0.Fè.AQ.00.F0.D8.C9.F0.FQ.t 


4B.CC.C0.6C.9C.CB.84.D8.08.E8,C 


1C.28.40.cû.68.E8.CS.A4.3C. 70 


PA 7 
tbe 





— Le programme demande alors la lon- 
gucur de la chaîne somme. Si RETURN 
pas de somme en fin de ligne sinon le 
programme propose le choix de la for- 
mule de calcul pour cette somme. (Il est 
d’ailleurs possible d’en ajouter facilement 
de nouvelles. c.f lignes 2350 à 2470). 

— Etsi cette somme doit être réinitia- 
lisée à chaque ligne. 

— On peut alors entrer les DATAs. Il 
faut taper RETURN après chaque DATA. 
La touche DEL peut être utilisée en cas 
d’erreur. 

— A la fin de la ligne, si besoin est, 
on entre la somme de contrôle (le pro- 
gramme l’ayant calculé lui-même tout au 
long de la ligne). Ici aussi on peut utili- 
ser la touche DEL. 

— Si il y a erreur sur la somme le pro- 
gramme propose de recommencer en ef- 
façant la ligne ou de corriger en passant 
sur Chaque DATA ainsi que sur la somme. 

— Si la somme est correcte le pro- 
gramme propose de continuer ou de ter- 
miner. 


1000 ” 


1010“ HHHHMHEHEHHHHHHHE 


1020 ‘ # 


1038 ‘ # Chargesent de DATAS # 
1040 ‘ # CPC 464/664/6128 # 


1068 ‘ + 


i Version 1.0.0 : # 


1070 4 ++ à 


1080 ‘ # 


1000‘ HHHEHHHHHEHHHHHHHHE 


1100 


1118 ‘ (c) J-M, VINCENT Fevrier 1998 


1120 ” 


1139 ‘ Toutes les lignes cosmentees peuvent etre efface 


es : tous les points 


1149 ‘ d'entree pour GOTO ou 60SUB ne sont pas des lign 


es cossentees., 
1150 ‘ 


inpval$ 
valinp$ 

a partir de inpval$ 
1270 ‘ support$ 
isquette 

1288 ‘ file 

1290 


+ 


Liste des variables : 


caratere lu par INKEY$ 
chaine de caracteres composee 


nos du support : cassette ou d 


non du fichier en sortie 


1300 ‘ Nuaeriques entieres 


1310 ‘ 


" leninp4 
"nlt 
"incé 


1370 ‘ ndatl* 
1388 ‘ 1sumk 
re 


1390 ‘ posxl4 / posylt 


e chaque ligne 


fenetre de sortie ecran 
longueur d'une chaine a lire 
nusero de ligne de depart 
increment des nuaeros de ligne 


nonbre de DATAs par ligne 
longueur de la chaine sus à li 


position du curseur en debut d 


1408 ‘ posxdk / posyd? : position du curseur au debut d 
e chaque DATA par ligne 


1410 ‘ ix 
1420 


utilise par les boucles FÜR 


1430 ‘ Nuneriques reelles 


1449 


valdat () 


savsun 


)XD 
XXE 
DIF 
XG 
XXH 
>XJ 
DIK 
NA 
NB 
NC 
HE 
XF 
)XG 
>XH 


NC 


ND 
NE 


NF 


>XH 


XX] 
JXK 
NA 
NB 
NC 


tableau de DATAS pour une lign >YD 


sauvegarde de la somne cumulee >ŸE 
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courante si erreur 


1489 ‘ sua : somme calculee (et cuaulee) po >YF 
ur la ligne courante : 
1490 ‘ valsun : somme lue pour la ligne couran >YG 
te 

1500 ‘ ERR : nusero d'erreur 0) 
1510 ‘ ERL : ligne en erreur )XK 
1520 MA 
1538 ‘ Flags NB 
1540 ‘ === NC 
15% ‘ »D 
1568 ‘ ampx s 1 si ‘&' utilise sinon 0 NE 
1570 ‘ csunx : 1 si sua a zero en debut de ch »YF 
aque ligne sinon & 

1588 ‘ correct : 1 si correction de la ligne DA >YG 
TA courante sinon 0 

1590 ‘ inpsunk : 1 si entree de la soame de con }YH 
trole sinon @ 

1600 XXK 
1618 ‘ Fonction A 
1629 ‘ ======== NB 
1639 NC 
1649 ‘ FN sum : definit la foraule de calcul p >YD 
our sun 

1658 ‘ NE 
1668 ‘ Debut du programme NF 
167 ‘ -———————— 6 
1680 ‘ »YH 





ANCIENS NUMEROS 





LS 
Fe HORS-SERIE 
DA n° 4,7, 8,9, 10,11, 12,13,14,15,16__15F 


217, 18, 19, 20,21 17F 
L ° DISQUETTES HORS-SERIE 
Lo HS 1,2, 3, 4,5,6,7,8,9,10, 11, 12 

140 F 


15 14, 15,16, 17, 18, 19,220, 21 


Chaque disquette comporte tous les programmes du n° hors-série cor- 
respondant. Les abonnés à CPC bénéficient du tarif unitaire de 110 F 
pour les disquettes. Ê 

















E Nom : Prénom : 
I Adresse : 
| Code postal : Ville : 
Date : Signature À 
I un 
I 


I Entourez le(s) numéro(s) choisis. 


Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre des Editions SORACOM. Re- 
tournez le coupon ou une photocopie à : Editiors SORACOM - La Haie de Pan - 35170 BRUZ 


1690 KEY DEF 66,0,0,0,0:POKE &BDEE ,&C9 ‘ Annule BREAK & DDU 
CTRL+SHIFT+ESC 

1700 MODE 2:0N BREAK GOSUB 318Q:0N ERROR G0TO 3239 )TA 
1710 WB 
1720 ‘ Initialisation des variables pour le chargement )YC 
des DATAs 

UD‘ ---— ee — ND 


1740 ‘ NE 
1750 WINDOW #1,1,80,1,24:CL5 #1:HINDOW #2,1,80,25,25:CL )BL 
S #2 

1768 PRINT #1,CHR$ (24) ;SPACE$ (14); "Utilitaire de charge DCT 
sent de datas dans un programme. "; SPACES (14) ; CHR$ (24); 

1770 PRINT #2,"Cassette ou Disquette (C/D) ? ";CHR$(24) DLF 
5" "as CHR$(24) ;CHR$ (8); 

1780 inpval$="":WMHILE inpval$="":inpval$=UPPERS(INKEY$) UE 
MEND:CLS #2 

1790 IF inpval$="C" THEN support$="cassette":G0T0 1820 )CC 
1800 IF inpval$()"D" THEN PRINT CHR$(7)::60T0 1770 >TU 
1818 support$="disquette" >1Y 
1820 CLS #2:PRINT #2," Appuyer sur n'importe quelle touc >WM 
he lorsque vous aurez inserer une “;support$; 

1830 inpval$="":MHILE inpval$="":inpval$=UPPER$(INKEY$) DUA 
:WEND:CLS #2 

1840 IF support$="disquette" THEN :DIR,"#,asc":60T0 189 >GM 
(] 


1850 CLS #2:PRINT #2,"Avez-vous besoin d'initialiser le DHK 
s commandes cassette (:TAPE) (O/N) ? ":;:GOSUB 2859 

1869 IF inpval$="0" THEN :TAPE WR 
1870 CLS #2:PRINT #2,"Press REC and PLAY then any key: )BX 
“yCHRS (24) 5" "sCHR$(24) ;CHRS (8); 

1880 inpval$="":WHILE inpval$="":inpval$=UPPERS(INKEYS) UF 
HEND:CLS #2 

1890 INPUT #2,"Quel fichier voulez-vous creer (le type DMC 
asc’ est implicite) "sfile$ 

1900 IF file$="" OR LEN(file$)>8 THEN PRINT CHR$(7);:CL DPN 
S #2:6070 1890 

1910 CLS #2:PRINT #2,"A quel nunero de ligne voulez-vou ED 
s commencer ? "s:ca%=2:leninp=5:60SUB 2949 

1928 nl4=VAL (valinp#) >R 
1938 CLS #2:PRINT #2,"Quel increment voulez-vous utilis >NB 
er ? "ysca%=2:leninp=5:G0SUB 2949 

1940 inc4=VAL(valinp$) YRD 
1950 CLS #2: INPUT #2, "Nombre de datas par ligne "indatl 3KF 


4 

1960 IF ndatl4=0 THEN PRINT CHR$(7);:GOTO 1950 JM 
1970 CLS #2:PRINT #2,"Utilisez-vous le signe ‘&' pour 1 DDK 
es datas (O/N) ? ";CHR$(24);" "5 CHRS (24) ; CHR$ (8) ; : GOSUB 
2850 

1980 IF inpval$="0" THEN amp/=1 ELSE amp4=0 XxM 
1990 CLS #2: INPUT #2,"Longueur de la chaine ‘sonme’ en RE 
fin de ligne ";lsumxk 

2000 IF 1sum4(>0 THEN GOSUB 2390:CLS5 #2:PRINT #2,"Doit- >BM 
on remettre à zero la chaine ‘somme’ au debut de chaque 
ligne (O/N) ? "s;CHR$(24);" "3 CHRS (24) ;CHR$(8) ; : GOSUB 2 
850: IF inpval$="O" THEN csun/=1 ELSE csuml=0 


2010 ” XF 
2020 ‘ Ouverture du fichier choisi precedemaent XG 
209  ----- XXH 





2040 XX] 
2050 CLS #1:CLS #2 LU 
2060 DIM valdat (ndat1 4) :sum=0 WR 
2870 OPENOUT "'"+file$+".asc" NY] 
2088 ‘ NC 
2090 ‘ Entree des DATAs, de la sonme et verification  )YD 
Qi XXF 
2110 Y\G 
2128 correct/=@:G0SUB 2520 WU 
2130 YJ 
2148 ‘ Ecriture dans le fichier choisi precedemsent )XK 
UD ----—————— A 
2160 )B 
2170 PRINT #9,RIGHT$ (STR$(n1%) ,LEN(STR$(n1%))-1)3" DATA DEU 
3 
2180 FOR i4=9 TO ndat14-{ RG 
2190 IF ampk=1 THEN PRINT #9,"&"; IE 


2208 PRINT #9,MID$ ("@@",1,2-LENCHEXS (valdat (i)1))3HEXS DRF 
(valdat (1%) ); 

2210 IF i4Ondatlt-1 THEN PRINT #9,","; ELSE IF Lsua%> DNZ 
@ THEN PRINT #9,","; ELSE PRINT #9 


2220 NEXT i4 A 
2230 IF 1su4=@ THEN 60T0 2300 JIM 
2240 IF aap4=1 THEN PRINT #9,"&"; )1A 


2250 PRINT #9,MID$ (STRING$ (1sun%,"@") ,1,LEN(STRINGS(Lsu ML 
m4,"0"))-LENCHEXS (val sua) )) ;HEX$ (val sum) 


2268 NC 
2270 ‘ Test pour continuer ou sortir "D 
2280 ‘ ------- NE 
2290 ‘ NF 


2300 PRINT #2,CHR$(24);" Appuyer sur <F> pour sortir ou >GH 
une autre touche pour continuer. ";CHR$(24); 

2310 inpval$="":WHILE inpval$="":inpval#=UPPERS(INKEYS) KW 
:HEND 

2320 CLS #2:1F inpval$="F" THEN CLOSEOUT:WINDOW 1,80,1, > 
25:CLS:KEY DEF 66,0,8FC,&FC,&FC:POKE &BDEE ,&C3:LOCATE 1 
1L:PRINT “Vous pouvez charger votre fichier en tapant : 
“sPRINT:PRINT "LOAD ";CHR$ (34) ;UPPERS (iles) ;".ASC";CHR 
$(34) :PRINT:END 


2330 nl{=nl4+inct )LX 
2340 GOTO 2120 >MB 
2350 ‘ NC 


2360 ‘ Sous-programee du choix de la formule de calcul )YD 
de la sonne 


2380 NF 
2390 CLS #2:PRINT #2, "Utilisez-vous cette foraule de ca HE 
lcul (O/N) : TOT=TOT+#PEEK (AD) ? ";:G0SUB 2850: IF inpval 
$="0" THEN DEF FN sum=sum+val dat (i4) :RETURN 

2400 CLS #2:PRINT #2, "Utilisez-vous cette formule de ca DJ 
lcul (O/N) : S=S+K+65536#(S+K)32767) ? "::60SUB 2850: IF 
inpval$="0" THEN DEF FN sun=sun+val dat (14) +65536# (sun+ 
valdat (17) 232767) : RETURN 

2410 CLS #2:PRINT #2,"Utilisez-vous cette foraule de ca >0Y 
lcul (O/N) : som=somtatj ? ";:60SUB 2850: IF inpvalt="0" 
THEN DEF FN sun=sun+val dat (i4)#(i%+1) RETURN 

2420 MA 
2439 ‘ Formule de calcul suivante NB 


2440 ‘ site NC 
2450 ‘ Derniere formule de calcul ND 
2460 ‘ NE 
2470 PRINT CHR$(7);:G0T0 2390 YXC 
2480 ‘ )G 


2490 ‘ Sous-programe d'entree et de verification des D >VH 
ATAs 
20 \K 
2510 ‘ MA 
2520 inpsum4=0: IF correct{=0 THEN savsun=sun ELSE sum=s KM 
avsun 
2530 posxl 4=POS(#):posyl#=VPOS (#1): IF csum4=1 THEN sum DE 
=Q 
2540 PRINT #1,RIGHT$ (STR$(n1%) ,LEN(STR$(n1%) )-1);" DATA DEL 
he 
, 
2550 FOR i%=0 TO ndatl%-1 RH 
2560 IF amp%=i THEN PRINT #1,"&"; NF 
2570 posxd#4=P0S (#1) :posyd4=VPOS(#1):ca%=1:leninp4=2: IF  >GK 
correct#=@ THEN GOSUB 2940 ELSE valinp$=HEX$(valdat (1%) 
Jeninpk):PRINT #ca%,valinp$;:GOSUB 295 
2580 valdat (i%)=VAL("&k"+valinp$) A] 
259% IF LEN(valinp$)<=2 THEN LOCATE #i,posxd’#,posydk:PR >UP 
INT #1,HEX$(valdat (14),2); ELSE PRINT CHR$(7) ;:LOCATE # 
1,posxd4,posyd4: PRINT #i,SPACES$ (LEN(HEXS$ (val dat (1%) ,2) ) 
))3LOCATE #1,posxd4,posyd4:60T0 2570 
2600 IF i4C>ndatl14-1 THEN PRINT #i,","; ELSE IF 1sum4t> NB 
© THEN PRINT #1,","; ELSE PRINT #1 


2610 IF 1sum4(>0 THEN sum=FN sun DAY 
2628 NEXT i4 DE 
2630 D 
2640 ‘ Entree de la somme (si besoin) NE 
2659 ‘ --——-“œmmmnnmmmsenne— NF 
2660 »G 
2670 inpsumt=1:1F 1sum4=Q THEN RETURN GE 
2680 IF ampl=i THEN PRINT #1,"&"s )1A 


2690 posxd#4=P0S (#1) :posyd4=VPOS(#1) :ca4=1: leninpé=lsunx DRL 
:1F correct4=@ THEN GOSUB 2940 ELSE valinp$=HEX$ (valsun 
Leninp#):PRINT #ca4,valinp$;:GOSUB 2950 

2708 valsua=VAL ("&k"+valinp$) JXU 
2710 IF LEN(valinp$)<=lsua# THEN LOCATE #1,posxd4,posyd >DD 
4:PRINT #1,HEX$ (valsum,lsua/) ELSE PRINT CHR$ (7); :LOCAT 

E #1,posxd4,posyd4:PRINT #1,SPACES$ (LEN(HEXS (val sun, 1 sum 
7)))5:LOCATE #1,posxd4,posyd4:GOTO 2690 


272 ‘ »D 
2730 ‘ Verification de la somme (si besoin) NE 
270 ‘ = mmmmmmmnmnmmmnmmmnmne— NF 
2750 ‘ »YG 
2760 IF valsun=sun THEN RETURN JAX 


2770 PRINT #2,CHR$ (24);" Erreur dans les datas. Appuyer )0R 
sur (R> pour recommencer ou <C> pour corriger. “;CHR$( 
24); :correct4=0 

2780 inpval$="":WHILE inpval$="":inpval$=UPPERS(INKEY$) >KH 
:HEND 

279 IF inpval$="R" THEN CLS #2:LOCATE #1,posxl4,posyl4 >6X 
PRINT #1,SPACES$ (80) ;:LOCATE #1,posx1%,posyl 4: sun=savsu 
m:G0TO 2520 

2800 IF inpval$="C" THEN correct#=1:LOCATE #i,posxl4,po >WK 
5y14:6010 2529 ELSE PRINT CHR$(7);:GO0T0 2770 





2810 ‘ AND 


2820 ‘ Sous-programne d'entree O0 (oui) / N (non) NE 
2839 ‘ ---—--- NF 
2840 ‘ NG 
2850 PRINT #2,CHR$(24);" "3 CHR$ (24) ;CHR$ (8) ; LU 


2860 inpval$=UPPERS$(INKEY$) : IF inpval$="" THEN 2860 JWK 
2870 IF inpval$(>"O" AND inpval$<>"N" THEN PRINT CHR$(7 >NZ 
);:G0T0 2860 

2880 PRINT #2,inpval$;CHR$ (24) 5" "5 CHR$ (24) ;CHR$ (8); MR 


2890 RETURN GC 
2900 ‘ »D 
2910 ‘ Sous-programne d'entree de caracteres hexadecisa )ŸE 
ux et de controle 

2929 ‘ee YF 
2930 ‘ »G 
2940 valinp$="" >CF 
2958 inpval$="" >C6 
2968 WHILE inpval$<>CHR$ (13) )XH 


2970 IF correct#=@ THEN PRINT #ca4,CHR$(24);" ":CHR$ (24 >BB 
E 

2980 IF correct4=i AND inpsum4=@ THEN PRINT #cax,CHR$(2 >UY 
4)5",";CHR$ (24); 

2998 IF correct#=1 AND inpsumk=1 THEN PRINT #ca4,CHR$(2 UM 
4);" "sCHR$ (24); 

3000 inpval$=UPPERS(INKEY$) : IF inpval$="" THEN 3000 WG 
3010 IF ASC(inpval$)=0 THEN 3000 " Touche BREAK )1A 
3020 IF inpval$=CHR$(13) THEN 3108  ‘ Touche RETURN  >4 
3050 IF inpval$(>CHR$(127) THEN 3970 ‘ Touche DEL XC 
3040 IF LEN(valinp$)=@ THEN PRINT CHR$(7);:inpval$="":6 >KH 
OTO 3000 

3050 valinp$=MID$ (val inp$,1 ,LEN (val inp$)-1) »N 
3060 PRINT #ca%,CHR$ (8) ;CHR$ (8) 5" "s;CHR$(8) ;CHR$(B)s;:i )ZA 
npval$="":60TO 2970 

3070 IF LEN(valinp$)=leninp£ THEN PRINT CHR$(7);sinpval UF 
$="":60T0 3000 

3080 IF (inpval$>="@" AND inpval$t="9") OR (inpval$)="A >Æ 
“AND inpval$(="F") THEN PRINT #ca%,CHR$(8);" "5 CHRS (8) 
jinpval$; ELSE PRINT CHR$(7);:G0T0 3000 

3090 valinp$=valinp$+inpval$ Dr 
3100 IF LEN(valinp$)=0 THEN PRINT CHR$(7);sinpval$="":6 KE 
OTO 3000 


3110 WEND JHK 
3120 PRINT #ca/,CHR$(8);"  "sCHR$(B); DE 
3130 RETURN >FA 
3140 WA 
3158 ‘ Sous-programae de traitenent du BREAK »YB 
HD ‘ --——— ne NC 
3170 ‘ ND 


3180 CLOSEOUT:HINDOW 1,80,1,25:LOCATE 1,25:PRINT SPACE$ >LF 
(8@) ;:LOCATE 1,24:G0T0 3260 


3190 ‘ NF 
3200 ‘ Sous-progranne de traitesent des erreurs 7H 
JQ ” ----——————— mme XX] 
3220 ‘ YXK 
3230 CLOSEOUT:WINDOW 1,80,1,25:CLS >DH 
3249 PRINT "Erreur #";ERR;"a la ligne #"3;ERL >UB 
3250 RESUME 3260 >6K 
3268 END YK 











C. LE MOULLEC 
Valable pour CPC 
464 -6128 


Si vous aimez Tetro (voir ce 
numéro) vous avez de grandes 
chances d'apprécier EMPIRE. 
Les figures à assembler sont ici 

de simples cubes. 


M ais l’action se déroule en 3D et 
risque de changer certaines ha- 
bitudes. Le mode d’emploi est inclus dans 
le jeu. 


Chargement : 

Le premier fichier est lc programme 
EMPIRE. Ensuite, EMPIDATA doit être 
lancé afin d'obtenir EMPIBIN. C’est en 
faisant alors RUN “EM- 

PIRE” que le jeu 
commence. 








90 REM : 
100 REM : 
110 REM 


La 
Lit 
Le 


susssssssssssssssss ess 
nn sms, 


CLAUDE LE MOULLEC 


83 RUE J CURIE 


22420 PLOUARET 


TEL 96 38 94 24 


dans ssssnsssusssssuisss 
assis ssssssss 


120 SYMBOL AFTER 230 


130 SYMBOL 231,0,138,142, 138, 138,13 


8,234,0 


, 140 SYMBOL 252,0,224,128,128,126,12Z ) 
… 8,22a,0 
150 SYMBOL 233,0,238,138,138,234,42 ) 


.238,0 


160 SYMBOL 234,0,238,1932,132,196,13 ) 


2,132,0 


170 SYMBOL 235,0,174,170,170,174,23 


4,170,0 


180 SYMBOL 236,0,238,168,232,204,16 


8,174,0 


190 MEMORY &7FFF 
200 LOAD "EMPIBIN",&9C10 


210 GOSUB 3070:REM PRESENTATION/EXP 


LICATIONS 
220 REM 
230 REX : 
Z40 REM : 


sussssrsssssssssss ss ss 
nn ss ssss 


VARIABLES DE BASE 


14 


Ssssssssssusss usa ss 
CR 


210 DEFINT a-z:MODE 1 
Z:INK 3,19 


x-1)#2 

300 DIM spt15):FO0R h=0 TO {1:sptht1 
)=&9C10+(h484) :NEXT 

310 TR$S=CHRS(22)+CHR$ (1) :NR$=CHRS (2 
2)+CHR$ (0) 

320 DIM jet17,17):dpi=INT(RND#4)+1 


330 teaps=360:tp=temps:WINDOW #1,9, 
32,1,23 
340 ENV 1,15,-1,1:ENT 2,200,20,5 


,30,30,29,28,27,26,14,13,12,11,10 
360 DATA 5,4,3,2,1,1,2,3,4,5,17,18, 
19,20,21,21,20,19,18,17 

370 DATA 1,2,3,4,5,5,4,3,2,1,5,4,3, 
2,1,1,2,3,4,5 

380 DIM px(20):RESTORE 350:FOR h=1{ 
TÜ 20:READ atpx(h)=a:NEXT 

390 DIM py(20):RESTORE 360:F0R h={ 
TG 20:READ a:pythi=a:NEXT 

400 DIM nv(20):RESTORE 370:F0R h=1 
TO 20:READ a:nv(h)=a:NEXT 

SIONUREN 25e rase 

420 REM : 
430 REM : 





DESSIN DECOR 


260 BORDER O:INK O,O:INK 1,6:1NK 2, 


290 DEF EN potx,y)=&DOOU+(y-1) 804 


350 DATA 10,11,12,13,14,26,27,28,29 


)ÂL 


>MA 


>BD 


2MA 


sosnssnsssssessssessuses 
Sosa ssssssesssss 


460 GOSUB 470:G0T0 570 

470 PLOT 176,208,2:DRAW 320,352:DRA 
W 464,208:DRAW 320,64:DRAW 176,208 

480 PLOT 224,384,3:DRA4 320,288:DRA 
N 416,384:PLOT 496,304:DRAW 400,208 
:DRAW 496, 112 

490 PLOT 224,32:DRAN 320,128:DRAN 4 
16,32:PLOT 144,112:DRAW 240,208:DRA 
N 144,304 

500 z1=0:FOR g1=0 TO 3:0RIGIN 160+z 
1,96-z1:G0SUB 510:21=21+16:NEXT gl: 
GOTO 530 

510 x1=0:FOR h1=0 TO 272 STEP {6:al 
=TEST(hl,x1):1F al=0 THEN PLOT hl,x 
l 

520 xl=xi+i6:NEXT h1:RETURN 


530 z1=0:FOR gl=0 TO 3:0RIGIN 160+z 


1,320+z1:G0SUB 550:z1=z1+16:NEXT gl 


540 ORIGIN O,0:RETURN 

550 x1=0:FOR h1=0 TO 272 STEP 16:al 
=TEST(hl,x1):1F al=0 THEN PLOT hl,x 
l 

560 x1=x1-16:NEXT h1:RETURN 

570 X=1:Y=20:A$="SCOR":GOSUB 660 
580 X=33:Y=20:A$="HIGH":GOSUB 660 
590 X=1:Y=1:A$="TIME":GOSUB 660 

600 X=1:Y=6:A$="LINE":GOSUB 660 

610 X=33:A$="NEXT":Y=6:GOSUB 660:Y- 
3:GOSUB 660:Y=1:GO0SUB 660 

620 PRINT TR$:FOR H=3 TO B:PEN 2:LO 
CATE X,H:PRINT CHR$(143):LOCATE X+7 
,H:PRINT CHR$(143) :NEXT 

630 FOR H=3 TO B:PEN 3:LOCATE X,H:P 
RINT CHR$(207):LOCATE X+7,H:PRINT C 
HR$(207):NEXT:LOCATE 1,1:PRINT NR$ 


640 WINDOW #2,34,39,3,8:CLS #2:CALL 


&AOOE, &C186, sp(dpt ) 

650 GOTO 730 

660 PEN 2:FOR H=X TO X+7:LOCATE H,Y 
+1:PRINT CHR$(143) :LOCATE H, Y+3:PRI 
NT CHR$(143):NEXT 

670 LOCATE X,Y+2:PRINT CHR$(143) :LO 
CATE X+7,Y+2:PRINT CHR$(143) 

680 PEN 1:LOCATE X+1,Y:PRINT CHR$(2 
14)4CHR8(143)+CHR$(143)+CHR$(143)+C 
HRS(143)+CHR$ (215) 

690 PEN O:LOCATE X+2,Y:PRINT TR$;A$ 
:PEN 3:LOCATE X,Y+1:PRINT CHR$(223) 
:LOCATE X47,Y+{:PRINT CHR$ (222) 

700 LOCATE X,Y+2:PRINT CHR$ (207) :LO 
CATE X47,Y+2:PRINT CHR$(207) 

710 LOCATE X, Y+3:PRINT CHR$ (220) :LO 
CATE X47,Y+3:PRINT CHRS(221) 

720 LOCATE 1,1:PRINT NR$:RETURN 


>QU 
>PF 


)JQ 


KT 


)AR 





730 PEN 3:sc=0:G0SUB 2690: 1 i=0:GO0SU 
B 2730:GO0SUB 2760 

740 GOSUB 2240:G0SUB 2200:pas=0:1F 
fin=1 THEN 2890 

750 REM ssssssssstsssssessisse 

760 REM : 
770 REM 
780 REM : 
790 REM ssssssssssesesssessses 

800 zd=INT(RND#20)+1:x=px(zd):y=pyt{ 
zd):niv=nv(zd): 

810 dp=dpi:dpi=INT(RND#4)+1:CLS #2: 
CALL &AO0E, &C186, sp(dp{) 

820 CALL &AOOE,FN po(x,y),sp(dp):tp 
=tesps 

830 GOTO 2800 

840 IF INKEY({)#INKEY(75)=0 THEN pa 
g=past{:GO0TO 900 

850 IF INKEY(B)#INKEY(74)=0 THEN pa 
s=past{:G0T0 960 

860 IF INKEY(9)#INKEY(76)=0 THEN 10 
60 

870 GOTO 830 

880 WHILE INKEY#C>"":YEND:FOR t=1 T 
0 100:NEXT t:GOTO 830 

890 REM ::: SENS AIGUILLES MONTRE : 


900 SOUND 1,100,2,5:1F pas)5 THEN 1 
060 

910 CALL &AUUE,FN potx,y),sptdp) 
920 zd=zd+1:1F 2d=21 THEN zd=1 

930 x=px(zd):y=py(zd):niv=nv(zd) :CA 

LL &AOOE,FN polx,y),sp(dp) 

940 GOTO 880 

950 REM ::: SENS CONTRAIRE AIGUILLE 
Ses 

960 SOUND 1,100,2,5:1F pas)S THEN !{ 
060 

870 CALL &AOOE,FN polx,y),sp(dp) 
980 zd=zd-1:1F zd=0 THEN zd=20 

990 x=px(zd):y=py(zd):niv=nv(zd):CA 
LL &AOOE,FN poix,y),sp(dp) 

1000 GOTO 880 

1010 REM sssssssessssesessessses 
1020 REX : 
1030 REX : 
1040 REM : 

1050 REM sssssssesssssessssssses 
1060 SOUND 1,200, 50, 7,0,2 

1070 IF zd<6 THEN 55=i:G0T0 1110 
1080 1F zd<11 THEN 55=2:G0T0 1110 
1090 IF zd(16 THEN 55=3:GO0T0 1110 
1100 55=4 

1110 ON ss GOTO 1130, 1190, 1250, 1310 
1120 RE ::: CHUTE SENS 1 ::: 

1130 st=13:FOR h=13 TO { STEP -1:1F 
je(6tniv,h)©>0 THEN st=h-1 


CHUTE DES CUBES 


WC 


>TP 


>2C 
)LF 
>2C 
>LH 
26 
Yu 


)EC 


LB 


)FJ 
)VL 


>VA 


>DN 


AC 
)AY 


)EZ 


DT 


>2A 
>YP 
>KW 


)AF 
>JN 


DZ 


>2G 
)YY 
>KC 


>FC 
>2B 
>RC 
>VH 
RE 
>2F 
>RB 
DT 
ZA 
>ZH 
>FD 
DAE 
WE 
)FD 


1140 NEXT 

1150 FOR h=1 TO st-1:CALL LAOOE,FN 
po(x,y),sp(dp) 

1160 x=xti:y=y+1:CALL BAOOE,FN poi(x 
,Y), sptdp}):NEXT 

1170 ax=6+tniv:by=st:GOSUB 1540: jeta 
x,by)=dp:G0SUB 1690:G0T0 740 

1180 REM ::: CHUTE SENS 2 ::: 

1190 st=5:FOR h=5 TO 17:1F jeCh,12- 
niv)O@0 THEN st=hti 

1200 NEXT 

1210 FOR h=17 TO st+1 STEP -1:CALL 

&AOOE,FN poix,y),sptdp} 

1220 x=x-{:y=y+1:CALL &AOOE,FN pol(x 
»Y), sptdp) :NEXT 

1230 ax=st:by=12-niv:GOSUB 1540: je( 
ax,by)=dp:GOSUB 1690:G0T0 740 

1240 REM ::: CHUTE SENS 2 ::: 

1250 st=5:FOR h=5 TO 17:1F je(6tniv 
,h)O@0 THEN st=ht{ 

1260 NEXT 

1270 FOR h=17 TO st+1 STEP -1:CALL 
&AOOE,FN potx,y),sp{dp) 

1280 x=x-1:y=y-1:CALL &AOOE,FN po(x 
:Y), sp(dp) :NEXT 

1290 ax=6tniv:by=st:GOSUB 1540: : je( 
ax,by)=dp:G0SUB 1690:G0T0 740 

1300 REM ::: CHUTE SENS 4 ::: 

1310 st=13:FO0R h=13 TO 1 STEP -1:1F 
jeCh,12-niv) 0 THEN st=h-1 

1320 NEXT 

1330 FOR h=1 TO st-1:CALL &AOOE,FN 
po{x,y),sp(dp}) 

1340 x=xt{:y=y-1:CALL &AOOE,FN po(x 
,Y), sp(dp):NEXT 

1350 ax=st:by=12-niv:GOSUB 1540: jet 

ax,by)=dp:GOSUB 1690:G0T0 740 

1360 REM ssssssssssesseosessense 
1370 REX : 
1380 REM : 
1390 REM : 

1400 REM ssssssssssssessseeenees 
1410 CALL &AOOE,FN poix,y),sp(dp+4) 
1420 IF jelax-1,by)=0 AND je(ax-1,b 

y+1)=0 THEN CALL &AOOE,FN potx,y),s 

p(9) 

1430 IF jelax-{,by)=0 AND je(ax-1,b 

y+1)O0 THEN CALL &AOOE,FN polx,y), 

sp(11) 

1440 IF je(ax,by+1)=0 AND je(ax-1,b 

y+13=0 THEN CALL &AOOE,FN polx,y),s 

p(10) 

1450 IF jelax,by+1)=0 AND je(ax-1,b 

ÿ+1)O00 THEN CALL &AOOE,FN polx,y}, 

sp{(12) 

1460 IF jelax,by-1)=0 AND je(ax+i,b 

ÿ-1)C0 THEN CALL &AO38,FN potx, y-2 


EFFACER UN CUBE 


>KH 
RL 


Lu 


LA 


XQ 


LA 


2 


LA 


AU 


),sp(9) 
1470 IF jelaxti,by)=0 AND je(axti,b )BP 
y-1)©0 THEN CALL &A038,FN po(x,y-2 


),sp(10) 

1480 RETURN >FG 
1490 REM :::2:22222222222222222: >2P 
1500 REX : >RF 
1510 REM : AFFICHER UN CUBE DuY 
1520 REX : >RH 
1530 REM :::2::22222222:2252221: )2J 
1540 CALL &AOOE,FN po(x,y),sp(dp)  DAB 


1550 CALL &A038,FN polx,y),sptdpt4) )CC 

1560 IF JE(AX-1,BY)<>0 AND JE(AX-1, XF 

BY+1)C>0 AND JE(AX,BY+1)€20 THEN RE 

TURN 

1570 IF JE(AX-1,BY)=0 AND JE(AX-1,B 

Y+1)=0 AND JE(AX,BY+1)=0 THEN GOSUB 
1640:GOSUB 1650:RETURN 

1580 IF JE(AX-1,BY)=0 AND JE(AX-1,B >VW 

Y+1)C0 AND JE(AX,BY+1)=0 THEN GOSU 

B 1640:GOSUB 1650:GO0SUB 1670:RETURN 

1590 IF JE(AX-1,BY)<>0 AND JECAX-1, 

BY+1)C0 AND JE(AX,BY+1)=0 THEN G0S 

UB 1650:GO0SUB 1660:G0SUB 1670:RETUR 

N 

1600 IF JECAX-1,BY)=0 AND JE(AX-1,B 

Y+1)©0 AND JE(AX,BY+1)C0 THEN G0S 

UB 1640:G0SUB 1670:G0SUB 1680:RETUR 

N 

1610 IF JECAX-1,BY)C>0 AND JECAX-1, 

BY+1)=0 AND JE(AX,BY+1)=0 THEN GOSU 

B 1650:RETURN 

1620 IF JE(AX-1,BY)-0 AND JE(AX-1,B 

Y+1)=0 AND JEUAX,BY+1)30 THEN GOSU 

B 1640:RETURN 

1630 RETURN:REM un 05 ? tel 96 38 9 

4 24 

1640 CALL &AO38,FN polx,y),sp(9):RE 

TURN 

1650 CALL &A038,FN potx,y),5p(10):R )JJ 

ETURN 

1660 A=JE(AX-1,BY):CALL &AO38,FN po FM 

Ot-1,y+1),5p(at+4) :RETURN 

1670 A=JE(AX-1,BY+1):CALL &AO3B,FN 

po(x,YŸ+2),sp(a+4) :RETURN 

1680 A=JE(AX,BY+1):CALL &AO38,FN po 

(xt1,y+1),sp(at4) :RETURN 


1690 ON 55 GOTO 1760,1860,1960,2060 >AV 
1700 REM :::s2:22s2222222222222: >ZH 
1710 REX : : )RJ 
1720 REM : DECALAGE DES CUBES : >YA 
1730 REM : 2 )TA 
1740 REM :sssssssssesssssseses >ZH 
1750 REM ::: DECALAGE SENS { ::: )YT 
1760 IF by<>4 THEN RETURN JUU 


1770 pla=0:FOR h=13 TO 5 STEP -{:1F >ZZ 
JeCAX,H)=0 THEN pla=h 





1780 NEXT:1F pla=0 THEN RETURN 
1790 xi=ax:y1=by:FOR h=4 TO pla:lF 
je(AX,H)=0 THEN 1810 


1800 x=(AX+H)+2:y=(11+H)-AX:dp=je(A 


X,H):BY=H:GOSUB 1410 

1810 NEXT:FOR h=pla TO st+i STEP -{ 
:je(AX,H)=je(AX,H-1):NEXT 

1820 je(x1,y1)=0:FOR h=4 TO pla:IF 
je(AX,H)=0 THEN 1840 

1830 x=(AX+H)+2:y=(11+H)-AX:dp=je(A 
X,H):BY=H:GOSUB 1550 

1840 NEXT:RETURN 

1850 REM ::: DECALAGE SENS 2 ::: 
1860 IF ax<>14 THEN RETURN 

1870 pla=0:FOR h=5 TO 13:IF jeth,by 
)=0 THEN pla=h 

1880 NEXT:1F pla=0 THEN RETURN 

1890 xi=ax:y1=by:FOR h=14 TO PLA ST 
EP -{:1F je(h,by)=0 THEN 1910 

1900 x=(h+by)+2:y=(11+by)-h:dp=je(h 
,by):ax=h:GOSUB 1410 

1910 NEXT:FOR h=pla TO st+i:je(h,by 
)=je(h+{,by):NEXT 

1920 je(xi,y1)=0:FOR h=14 TO PLA ST 
EP -{:1F je(h,by)=0 THEN 1940 

1930 x=(h+by)+2:y=(11+by)-h:dp=ijeth 
,by):ax=h:GOSUB 1550 

1940 NEXT:RETURN 

1950 REM ::: DECALAGE SENS 3 ::: 
1960 IF by<>14 THEN RETURN 

1970 pla=0:FOR h=5 TO 13:1F je(AX,H 
)=0 THEN pla=h 

1980 NEXT:1F pla=0 THEN RETURN 

1990 xi=ax:y1=by:FOR h=14 TO PLA ST 
EP -{:1F jeC(AX,H)=0 THEN 2010 


2000 x=(AX+H)+2:y=(11+H)-AX:dp= je (A 


X,H):BY=h:GOSUB 1410 

2010 NEXT:FOR h=pla TO st+1:je(AX,H 
)=je(AX,H+{):NEXT 

2020 je(xi,y{)=0:FOR h=14 TO PLA ST 
EP -1:1F je(AX,H)=0 THEN 2040 

2030 x=(AX+H)+2:y=(11+H)-AX:dp= je (A 
X,H):BY=h:G0SUB 1550 

2040 NEXT:RETURN 

2050 REM ::: DECALAGE SENS 4 ::: 
2060 IF ax<>4 THEN RETURN 


2070 pla=0:FOR h=13 TO 5 STEP -1:1F » 


deth,by)=0 THEN pla=h 
2080 NEXT:1F pla=0 THEN RETURN 
2090 xt=ax:yi=by:FOR h=4 TO pla:lF 

je(h,by)=0 THEN 2110 
2100 x=(h+by)+2:y=(11+by)-h:dp=jeth 
,by):ax=h:GOSUB 1410 
2110 NEXT:FOR h=pla TO st+i STEP -1 
:jeCh,by)=je(h-1,by):NEXT 
2120 jelxi,y1)=0:FOR h=4 TO pla:1F 

je(h,by)=0 THEN 2140 


)2Z 
)YY 


)XX 


2130 x=Ch+by)+2:y=(11+by)-h:dp=je(h >BF 
,by):ax=h:GOSUB 1550 


2140 NEXT:RETURN >MV 
2150 REM ::::222222222222222222: )ZH 
2160 REX : >RJ 
2170 REM : TEST LIGNE/SORTIE JYU 
2180 REX : TA 
2190 REM sissssssssesssesssssss: )2ZH 
2200 fin=0:FOR h=7 TO 11 >RD 


2210 IF jeth,4)(0 OR jeth,14)C0 0 
R je(4,h)©)0 OR je(i4,h)€0 THEN fi 
n={ 

2220 NEXT:RETURN 

2230 REM ::: LIGNE COMPLETE ? ::: 
2240 FOR g=5 TO 13:FO0R h=5 TO 9:1F 
jeCh,g)=0 THEN 2270 

2250 com=1:FOR z=h TO h+t4:IF je(z,g 
)Ojeth,g) THEN co®=0 ELSE Ix=h:1y= 


>RD 


>MU 
>ZU 
JUL 


DUE 


8 
2260 NEXT z:1F cos=1 THEN GUSUB 237 
0:GOSUB 2480 


)PQ 


2270 NEXT h,g XKF 
2280 FOR h=5 TO 13:FO0R g=5 TO 9:1F >UK 
je(h,g)=0 THEN 2310 

2290 cos=1:FOR z=g TO g+4:1F je(h,z >UH 


)Ojeth,g) THEN com=0 ELSE Ix=h:1y= 


8 
2300 NEXT z:1F cos={ THEN GOSUB 258 
0:GOSUB 2480 


>PN 


2310 NEXT g,h:RETURN )QQ 
2320 REM ssssssssssessesseseses: >2G 
2330 REX : )RH 
2340 REM : EFF LIGNE HORIZONT >YV 
2350 REX : >RK 
2360 REM ssssssssesessesssesense )ZL 
2370 by=ly:FOR ax=1x TO Ixt4 )XR 
2380 x=(axtby)+2:y=(11+by)-ax:dp=je >MHD 
(ax, by) 

2390 je(ax,by)=0:CALL &AOOE,FN po(x >QK 
»Y), sp(dpt4) 

2400 IF jelax,by+1)=0 THEN CALL &AO >YT 


OE,FN polx,y),spt10) 
2410 NEXT:IF je(lx-1,by)(>0 THEN RE 
TURN 


'HJ 


2420 x=(lxtby)+2:y=(11+by)-Ix:CALL NY 
RAOOE,FN po(x, y),5p(9) :RETURN 

2430 REM ::sssssssssssessenesest >2J 
2440 REX : >RK 
2450 REX : REMISE A JOUR )TV 
2460 REX : TB 
2470 REM sssssssstsesesssesessss >ZN 


2480 sc=sct85:G0SUB 2690:1i=1i+1:G0 >MH 
SUB 2730 

2490 tesps=tesps-10:1F teaps<60 THE )QD 
N tenps=60 

2500 GOSUB 470:FO0R BY=5 TO 13:FDR À >NK 
X=5 TO 13:1F JE(AX,BY)=0 THEN 2520 


2510 x=(AX+BY)+2:y=(11+BT)-AX:dp=le 222 
(AX,BY):GOSUB 1550 


2520 NEXT AX,BY:RETURN )TC 
2530 REM :isssssssesssssesesssss:  )AA 
2540 REM : )TB 
2550 REM : EFF LIGNE VERTICALE :  »ZD 
2560 REM : >TD 
29/0 REN rss DÂE 
2580 ax=lx:FOR by=ly TO 1y+4 >XW 


2590 x=(axtby)+2:y=(1{+by)-ax:dp=je >HG 
(ax,by) 

2600 je(ax,by)=0:CALL &AOOE,FN potx >QD 
,Y), sptdpt4) 

2610 IF je(ax-1,by)=0 THEN CALL &AO >XD 
OE,FN potx,y),sp(9) 

2620 NEXT:IF jelax,ly+5)<>0 THEN RE HN 
TURN 

2630 x=(axtly+4)+2:y=(11+1y+4)-ax:C DUL 
ALL BRAOOE,FN potx,y),spt10) :RETURN 


2640! REM ssfeitiesessshsemesesss SAC 
2650 REH : >TD 
2660 REM : SCORE, TEMPS, ETC.. )YJ 
2670 REM : TF 
2680 REM sssssssssessesesssessess  DAG 
2690 PEN 3:LOCATE 2,22:PRINT nr$:"0 F2 
00000":1F sc=0 THEN RETURN 

2700 IF sct100 THEN LOCATE 6,22:PRI FH 
NT nr$;"  M":LOCATE 5,22:PRINT tr$;s 
c:RETURN 

2710 IF sc<1000 THEN LOCATE 5,22:PR >HQ 
INT nr$:"  M:LOCATE 4,22:PRINT tré 

Sc :RETURN 

2720 IF sc<10000 THEN LOCATE 4,22:P 3KC 
RINT nr$;" ":LOCATE 3,22:PRINT t 
r$;sc:RETURN 

2730 PEN 3:LOCATE 2,8:PRINT nr$;".. >EH 


00..":1F 1i=0 THEN RETURN 

2740 IF 1i<10 THEN LOCATE 5,8:PRINT >AZ 
nr$:" M:LOCATE 4,8:PRINT tr$;liiRE 

TURN 

2750 LOCATE 4,8:PRINT nr$;" 

TE 3,8:PRINT tr$;li:RETURN 
2760 PEN 3:LOCATE 34,22:PRINT nr$;" 

000000" :1F rec=0 THEN RETURN 

27170 IF rec<100 THEN LOCATE 38,22:P )LZ 
RINT nr$;" ":LOCATE 37,22:PRINT tr 

.$;rec:RETURN 


":LOCA DJN 


)JG 


2780 IF rec<1000 THEN LOCATE 37,22: >PG 
PRINT nr$:" ":LOCATE 36,22:PRINT 
tr$;rec:RETURN 

2790 IF rec<i0000 THEN LOCATE 36,22 RC 
PRINT nr$;" ":LOCATE 35,22:PRIN 

T tr$:rec:RETURN 

2800 tp=tp-1 >GJ 


2810 PEN 3:LOCATE 3,3:PRINT nr$;tp CH 
2820 IF tp>0 THEN 840 >NY 





2830 ENT 4,20,3,5:SOUND 4,20, 100,15 
,0,4:G0T0 1070 

2840 REM :isssssssssssesssssssees 
2850 REM : 
2860 REM : 
2870 REM : 

2880 REM 5 5ssesese essais 
2890 FIN=0:FOR t={ TO 200:SOUND f,t 
 L 14: NEXT t 

2900 FOR g=1 TO 17:FOR h=1 TO 17 
2910 IF je(h,g}=0 THEN 2930 

2920 sc=sc+10:SOUND 1,0,15,15,1,,15 
:GOSUB 2690 

2930 NEXT h,g:PEN 1:PAPER #1,0:ERAS 
E JE:DIM JE(17,17) 

2940 IF rec<sc THEN rec=sc:GO0SUB 27 
60 

2950 FOR h=1 TO 25:LOCATE #1,24,23: 
PRINT #1,CHR$(10) :NEXT 

2960 PEN 3:LOCATE 16,10:PRINT "UNE 
AUTRE?" :LOCATE 18,12:PRINT "(O/N)" 
2970 A$=INKEY$:IF A$="" THEN 2970 
2980 A$=UPPER$(A$):IF A$="N" THEN E 
ND 

2990 IF A$="0" THEN 3000 ELSE 2970 
3000 FOR h=1 TO 25:LOCATE #1,24,23: 
PRINT #1,CHR$({0) :NEXT 

3010 CLS #2:GOSUB 470:DP1=INTCRND*4 
)+1:DP=DP1:TEMPS=360:G0T0 730 

3020 REM 
3030 REM : 
3040 REH : 
3050 REH : 
3060 REM éssssniiseneesemisess 
3070 CALL &BBFF:MODE 1:BORDER 0:1INK 
0,0:INK 1,6:INK 2,2:INK 3,19 

3080 PEN 3:LOCATE {1,8:PRINT STRING 
$(21,"#"):LOCATE 11,15:PRINT STRING 
$(21,"#"):FOR h=9 TO 14:LOCATE {1,h 
:PRINT "#":LOCATE 31,h:PRINT"#":NEX 
T 

3090 PEN 2:LOCATE 13,10:PRINT"1 -"; 
:PEN 1:PRINT" EXPLICATIONS" 

3100 PEN 2:LOCATE 13,13:PRINT"2 -"; 
:PEN 1:PRINT" ACTION" 

3110 A$=INKEYS$:1F a$=°" THEN 3110 
3120 PRINT CHR$(7):1F A$="{" THEN 3 
140 

3130 IF A$="2" THEN au-REMAIN(2):RE 

TURN ELSE 3110 

3140 RESTORE 3640:EVERY 20,2 GOSUB 

3620 

3150 LHC$=CHR$(231)+CHR$ (232) +CHR$( 

233)+CHR$ (234) +CHR$ (235) +CHR$ (236) 
3160 tr$=CHR$(22)+CHR$(1) :nr$=CHR$( 

22)+CHR$(0) 

3170 MODE O:BORDER 2:INK 0,0:1INK 1, 


FIN DE PARTIE 


Susssssssssssssssessuns 
ss ss ss ssssssssssss 


PRESENTATION 


LP 


>BQ 


)YD 
>DH 


)RB 


)FP 


)QU 


NZ 


)BA 


26:1NK 2,14:INK 3,1:INK 4,3:INK 5,2 

1:INK 6,18:INK 7,9:INK B,6:INK 9,24 

INK 10,13:INK 11,15:INK 12,17: INK 

13,20:1INK 14,24: INK 15,0 

3180 FOR T-0 TO 810:PLOT RND*640,RN >DH 

D+#400+175, RND#10+1:NEXT 

3190 WINDOU #1,1,20,15,25:PAPER #1, DKT 

13:CLS#1 

3200 PLOT 0,5,1:DRAW 639,5:PLOT 0,1 >GF 

00:DRAW 639,100:PLOT 0,150:DRAW 639 

,150:PLOT 0,176:DRAW 639,175 

3210 PLOT 0,5:DRAY 316,1/5:PLOT 644 >CL 

.S:DRAN 324,176:PLOT 0, /5:DRAW 316, 

1i5:PLUT 639, /S:DRAU 324,1/5:PLOT 1 

60,5:DRAN 316,175:PLOT 480,5:DRAW 3 

24,175:PLOT 0,120:DRAW 318, 175:PLOT 
639,120:DRAW 324,175:PLOT 0,155:DR 

AW 316,175:PLOT 639,155:DRAW 324,17 

5 

3220 DEG:ORIGIN 300,175:FO0R T=-94 T >CW 

0 100 STEP O.5:MOVE 0,0:PLOT SIN(T) 

#200,COS(T)#200,14:DRAWR 20,0:DRAWR 
20,0,13:DRAWR 20,0,12:DRAWR 20,0,1 

L:DRAWR 20,0,10:NEXT:0RIGIN 0,0 

3230 ORIGIN 0,0 >XK 

3240 A=0:FOR T=0 TO 28:PLOT 200+A,1 >VU 

104T,15:DRAW 300+A,1104T:A=A+1,2:NE 

XT 

3250 FOR T-0 TO 70:FLOT 200,120+T:D >YQ 

RAY 270,120+T,G:NEXT:A=0:FOR T=190 

TO 202:PLOT 200+A,T:DRAW 270+A,T,8: 

DRAW 270+A,{20+A,7:A=A+2:NEXT 

3260 A=0:FOR T=0 TO 28:PLOT 5004A,5 DTT 

O+T,15:DRAW 600+A,50+T:A=A+1.2:NEXT 

3270 FOR T=-0 TO 70:PLOT 500,60+T:DR >VA 

AW 570,60+T,2:NEXT:A=0:FOR T=130 TO 
142:PLOT 500+A,T:DRAW 570+A,T,10:D 

RAW 570+A,60+A,B:A=A+2:NEXT 

3280 A=0:FOR T=0 TO 28:PLOT 20+A,10 >RP 
+T,15:DRAW 150+A,10+T:A=A+1.2:NEXT 

3290 FOR T=0 TO 90:PLOT 20,20+T:DRA DUT 
W 110,20+T,B:NEXT:A=0:FOR T=110 TO 
132:PLOT 20+A,T:DRAW 110+A,T,2:DRAW 
110+A,20+A,10:A=A+{.2:NEXT 

3300 PEN O:LOCATE 7,22:PRINT tr$;"L WF 
'EMPIRE":LOCATE 13,24:PRINT "ECLATE 

L) 

3310 PEN {1:LOCATE 2,2:PRINT Inc$in )EE 
r$ 


3320 WHILE INKEY$="":NEND )UD 
SJI0.REN ss sésssi sense )2J 
3340 REM : >RK 
3350 REH : EXPLICATION )TD 
3360 REK : )TB 
3370 REM ssssrsssssssssesssessest )2N 


3380 CALL &BBFF:MODE 1:BORDER O:1INK HN 
0,0:1INK 1,6:INK 2,2:1NK 3,19 





3390 CLS:MODE 1:LOCATE 13,1:PRINT"L BB 
EMPIRE ECLATE":PEN 2:LOCATE 13,2:P 


3400 PEN 3:LOCATE {,4:PRINT" L'E DTP 
MPIRE ECLATE c'est un TETRIS a lapu 
issance 4 et en trois disensions." 

3410 PEN 2:LOCATE 1,4:PRINT" L'E LB 

MPIRE ECLATE':PEN {:LOCATE 30,4:PRI 

NT "TETRIS" 

3420 PEN 3:LOCATE {,7:PRINT" Des )FA 
cubes de couleurs arrivent par 4vo 

ies différentes pour s'arréter d 
ansl'aire qui leur est réservée." 

3430 LOCATE 1,11:PRINT" Votre t >KC 
ache consiste à en aligner Sde la 8 
ème couleur pour les voir dispa-ra 


itre.Plus facile à dire qu'à faire. 
" 


3440 LOCATE {,15:PRINT" Le dépl >GH 

acesent de chaque cube estlimité 

à cinq pas et ils n'hésitent pas à 
jouer des coudes pour 5e faire de 
laplace." 

3450 LOCATE 1,20:PRINT" Mais au >BH 


grand jasais ils ne devronts'échap 
per en passant la frontiere car.." 





3460 LOCATE 10,23:PEN 1:PRINT'LA LI 
BERTE DES PEUPLES" 

3470 LOCATE 10,25:PRINT"C'EST L'EMP 
IRE ECLATE." 

3480 VHILE INKEY$="":WEND 

3490 CLS:LOCATE 15,1:PRINT"DEPLACEN 
ENTS":PEN 2:LOCATE 15,2:PRINT"##### 
CEPTFEE D) 

3500 LOCATE 1,4:PRINT"Joystick/curs 
eur":PEN {:LOCATE 1,5:PRINT"------- 


3510 LOCATE 1,7:PRINT " "+CHR$(243 
)+" = déplacement du cube dans le 
sensdes aiguilles d’une montre." 
3520 LOCATE {,11:PRINT " "+CHR$(24 
2)+4" = déplacement du cube dans | 
e senscontraire des aiguilles d'une 
aontre." 

3530 LOCATE 4,15:PRINT "<COPY> ou « 
FIRE» = le cube tosbe" 

3540 PEN 3:LOCATE 6,19:PRINT STRING 
$(30,"=") 

3550 PEN 2:LOCATE 4,22:PRINT "ÇANY 

KEY>":LOCATE 14,22:PEN 1:PRINT'"= d 
epart de la partie" 

3560 LOCATE 33,25:PEN 1:PRINT"(ENTE 


VV 
es 
Gr) 


R":NHILE INKEY$="":WEND:CLS:GOTO 3 
070 


9970 REN srsssesieeseressésss )2Q 
3580 REH : : )TF 
3590 REM : MUSIQUE MAESTRO ! : )XQ 
3600 REH : : )RJ 
3610 REM ::::2:2222222222222222: )2K 


3620 DI:1F (SQ(1) AND 7)=0 THEN El: DRJ 
RETURN ELSE READ p:1F p=-1 THEN RES 
TORE 3640:G0T0 3620 

3630 SOUND 1,p,28,7:SOUND 1,p,1,0:G DKY 
OTO 3620 

3640 DATA 239, 239, 253, 239, 239, 239, 2 )CH 
53,230, 213,239, 253,284, 239, 239, 253, 
239, 239, 239, 253, 239, 284, 319, 379, 358 
,319, 319,319, 319, 319, 358, 379, 426, 37 
9,358, 319 

3650 DATA 284,319, 319,358, 319, 319, 3 
19, 284,253, 284,319, 358, 379, 426, 379, 
426, 478, 478, 426, 379, 358, 426, 319, 213 
,213, 239,213, 213, 213, 239, 253, 284, 25 
3,239, 213 

3660 DATA 190, 213,213, 239, 213, 213, 2 
13,190, 179, 190,213, 190, 179, 190, 179, 
190, 213,239, 253, 284, 253, 284, 319,319 
,284,253, 239, 284, 239, -1, -1 @ 


v 


CH 


V 


PC 


4 cAssETTES POUR 100 KF !* 


Une cassette comprend les jeux, éducatifs ou utilitaires qui ont été publiés 
dans le numéro CPC correspondant. 


3 : Char d'assaut — Consommation de carburant — Fonction circle 
7 : Cherry Paint - Discut — Conjugaison — Calcul - Colditz - 
Double hauteur Référence croisée des variables basic 

9 : Cherry Paint - Creedata - Serpent Madness 

12 : Cherry Paint - Mozart - Louisiane — Prot disc — Etik disk. 


15 : Cherry Paint - Gemaine - Moniteur de disquette — Boîte à ryth- 


mes. 





16 : Poker patience — Attentif - Menu 2+. 

24 : CAO 3D -— Anti-erreurs — 1000 Bornes — Justification - Twenty 
Copy - Trames et collages - Graphofrance - Machines. 

28 : Anti-erreurs || - Routines machines - CAO 3D - Fichiers - Géné- 
rateur de sprites - Catprog. 



































Je commande __ lots(s) de 4 cassettes à 100 F le lot Nom : Prénom : I 

Numéros des cassettes souhaitées : Adresse : 
I Si une des cassettes était épuisée, je désire à la place Code postal : Ville : Û 
: la cassette n° : Date : Signature : 2 : 
: Bon de commande à retourner accompagné d'un chèque à l'ordre des Editions SORACOM à l'adresse suivante : | 
: Editions SORACOM - La Haie de Pan - 35170 BRUZ. : 
| * Dans la limite des stocks disponibles. : 
I "Ne pouvant être tenu pour responsable de l'acheminement des paquets postaux, nous conseillons à notre aimable clientèle de choisir l'envoi en recommandé" I 
LC itr :+10F) Délai minimum de livraison : 15 jours à réception de la commande  , 

DS CE GUN CUS GUN CRRRS CURE ŒURRN GUN GUN ŒRRS ŒURRS ŒGRRS OUR CUS CS GERS GRR OURS CE RS OURS OURS GUN OURS GUN ON OURS OURS ŒURN ŒRN CN OUEN DR OR D 
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EMPADATA 


5 MEMORY &8FFF:MODE 1 
7 LOCATE 1,10:PRINT " DATAS DE LA LIGNE 
CORRECTS":PEN 2 

10 A=&9C10:F=&A09O:L=100:WHILE AC=F:FOR 
AA TO ATIS:READ C$:K=VAL("&"+C$) :S=S+ 

K+65536#(5+K)32767):1F A(=F THEN POKE À 
K 

? 

20 NEXT:READ D$:T=VAL("&"+D$):IF TS T 
HEN PRINT CHR$(7);"Erreur ligne" ;L:END 

ELSE L=L+5 

25 LOCATE 20,10:PRINT 1-5:WEND 

100 DATA 00,01,08, 00, 00, 13,8C, 00, 00,37, 
CE, 00,00, 7F,EF,00,031B 

105 DATA O1,FF,FF,08,13,FF,FF,8C,37,FF, 
FF, CE, 7F,FF,FF,EF,0E2E 

110 DATA 3F,FF,FF,DE,1F,FF,FF,BC,OF,FF, 
FF,78,0F,7F,EF,FO,1914 

115 DATA OF,3F,DE,FO0,0F,1F,BC,FO0,07,0F, 
78,E0,03,0F,F0,C0,203A 

120 DATA 01,0F,F0,80,00,0F,F0,00,00,07, 
F0, 00, 00,03, C0, 00, 2463 

125 DATA 00,01, 80, 00, 00, 11,88,00,00, 23, 
4C,00,00,47,2E,00,2661 

130 DATA 00,8F,1F,00,11,0F,0F,88,23,0F, 
0F,4C,47,0F,0F,2E, 28E6 

135 DATA 6F,0F,0F,1F,4F,0F,0F,3E,2F,0F, 
OF, 7C,1F,0F,0F,FB,2C5B 

140 DATA OF,8F,1F,FO0,0F,4F,3E,FO0,0F,2F, 
7C,F0,07,1F,F8,E0,333C 

145 DATA 03,0F,F0,C0,01,0F,F0,80,00,0F, 
F0, 00,00,07,E0, 00, 3864 

150 DATA 00,03,C0, 00, 00,01,80,00,00,11, 
88,00, 00,32,C4, 00, 3B37 

155 DATA 00, 74,E2,00,00,F8,F1,00,11,F0, 
F0,88,32,F0,F0,C4, 4305 

160 DATA 74,F0,F0,E2,F8,F0,F0,F1,7C,FO, 
F0,F2,3E,F0,FO0,F4,5124 

165 DATA 1F,F0,F0,F8,0F,F8,F1,F0,0F,7C, 
F2,F0,0F,3E,F4,F0, SBAI 

170 DATA 07,1F,F8,E0,03,0F,F0,C0,01,0F, 
F0, 80,00,0F,F0, 00,61E0 

175 DATA 00,07,E0,00,00,03,C0,00,00,01, 
80,00,00,11,88,00,64A4 

180 DATA 00,32,4C,00,00,65, A6,00,00, DA, 
5B,00,11,A5,A5,88,6945 

185 DATA 32,5A,54,4C,65, AS, A5, A6, DA, SA, 
SA, 5B,6D, A5, A5,B6, 7122 

190 DATA 3E,5A,5A,7C,1F,A5,A5,F8,0F, DA, 
5B,F0,0F,6D,B6,F0, 7947 

195 DATA O0F,3E,7C,F0,07,1F,F8,E0,03,0F, 





F0,C0,01,0F, FO, 80, 8040 
200 DATA 00,0F,F0,00, 00,07, E0, 00, 00,03, 
C0, 00, 00, 01, 80, 00, 836A 
205 DATA 00,01,08,00, 00, 13, 8C, 00, 00,37, 
CE, 00, 00, 7F, EF, 00, 8685 
210 DATA O1,FF,FF,08,13,FF,FF,6C,37,FF, 
FF, CE, 7F,FF,FF,EF,9198 
215 DATA 37,FF,FF,CE,19,FF,FF,8C,04,FF, 
FF,08, 00, 7F,EF, 00, JAAD 
220 DATA 00,37, CE, 00, 00, 13, 8C, 00, 00, 01, 
08, 00, 00, UO, 00, DO, CSA 
225 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 
00, 00, 00, 00, 00, 00, 9CSA 
230 DATA 00,00,00,00, 00, 11,88, 00, 00, 23, 
4C,00, 00,47, 2E, 00, QDD7 
235 DATA 00,8F,1F,00,11,0F,0F,88,23,0F, 
OF, 4C, 47,0F,0F, 2E, AOSC 
240 DATA 8F,0F,0F,1F,47,0F,OF, 2E,23,0F, 
0F,4C,11,0F, OF, 88, A2FF 
245 DATA 00,68F,1F,00,00, 47, 2E, 00, 00,23, 
4C, 00, 00, 11, 88, 00, A52A 
250 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 
00, 00, 00, 00, 00, 00, A52A 
255 DATA 00,00, 00, 00, 00,00, 00, 00, 00,11, 
88, 00, 00, 32, C4, 00, A6B9 
260 DATA 00, 74,E2,00,00,F8,F1,00, 11, F0, 
FO,88, 32, F0, FO, C4, AF47 
265 DATA 74,F0,F0,E2,FB, FO, FO, F1, 74, F0, 
FO,E2, 32, FO, FO, C4, BC52 
270 DATA 11,F0,F0,88,00,F8,F1,00, 00, 74, 
E2,00, 00, 32, C4, 00, C300 
275 DATA 00,11,88,00, 00, 00, 00, 00, 00, 00, 
00,00, 00, 00, 00, 00, C399 
280 DATA 00,00, 00,00, 00,00, 00, 00, 00, 00, 
00,00, 00, 11,88, 00, C432 
285 DATA 00,32, 4C,00, 00,65, AG, 00, 00, DA, 
58,00, 11, A5, A5, 88, CBD3 
290 DATA 32,5A,5A,4C,65, A5, A5, A6, DA,5A, 
5A,5B,65, A5, A5, A6, DO98 
295 DATA 32,5A,5A, 4C, 11,45, A5, 88, 00, DA, 
5B, 00, 00,65, A6, 00, DSED 
300 DATA 00, 32, 4C, 00, 00, 11, 88 00, 00, 00, 
00, 00, 00, 00, 00, 00, D704 
305 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 00, 
00, 00, 00, 00, 00, 00, D704 
310 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 00, 
00,00, 00, 00, 00, 00, D704 
315 DATA 00,00, 00,00, 00,00, 00, 00,00, 00, 
00,00, 00, 00, 00, 00, D704 
320 DATA 08,00, 00,00, 0C, 00, 00, 00, 0E, 00, 
00,00, 0F, 00, 00, 00, D735 
325 DATA 0F,08, 00,00, 0F,0C, 00, 00,07, 0E, 
00,00, 03, 0F, 00, 00, D78E 
330 DATA 01,0F,00,00, 00, 0F, 00, 00,00, 07, 
00,00, 00, 03, 00, 00, D7B7 
335 DATA 00,01,00,00, 00,00, 00, 00,00, 00, 
00,00, 00,00, 00, 00, D7B8 
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340 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 
00, 00, 00, 00, 00, 00, D7B8 

345 DATA 00, 00,00, 00, 00, 00, 00, 10, 00, 00, 
00, 30, 00, 00, 00, 70, DB68 

350 DATA 00, 00,00, FO, 00, 00, 10, FO, 00, 00, 
30, F0, 00, 00, 70, E0, DCC8 

355 DATA 00,00, F0, CO, 00, 00, FO, 80, 00, 00, 
FO, 00, 00, 00, E0, 00, E1B8 

360 DATA 00,00, CO, 00, 00, 00, 80, 00, 00, 00, 
00, 00, 00, 00, 00, 00, E2F8 

365 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 
00,00, 00, 00, 00, 00, E2FB 

370 DATA 00,00, 00, 00, 00, 00, 00, 00, 08, 00, 
00,00, 0C, 00, 00, 00, E30C 

375 DATA 0E, 00,00, 00, 0F, 00, 00,00, 0F, 08, 
00, 00, OF, 0C, 00, 00, E35B 

380 DATA 07,0E,00, 00,03, 0F, 00,00, 04, 0E, 
00,00, 00, 0C, 00, 00, E39D 

385 DATA 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 
00,00, 00, 00, 00, 00, E39D 

390 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 00, 
00, 00, 00, 00, 00, 00, E39D 

395 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 
00,00, 00, 00, 00, 10, E3AD 

400 DATA 00, 00,00, 30, 00, 00, 00, 70, 00, 00, 
00,F0, 00, 00, 10, F0, E63D 

405 DATA 00,00, 30, F0, 00, 00, 70,0, 00, 00, 
FO, CO, 00, 00, 70, 80, EB4D 

410 DATA 00,00, 30, 00, 00,00, 00, 00, 00, 00, 
00,00, 00, 00, 00, 00, EB7D 

415 DATA 7C,C6,08,67,D0,D5, 11,50, CO, 19, 
Di, C9, 00, 00, DD, 5E, F2E2 

420 DATA 00,DD,56, 01, DD,6E, 02, DD, 66, 03, 
06,15,CD, 19, BD, F3, FO5A 

425 DATA C5,E5,06,04, 1A,AE, 77,13, 23, 10, 
F9,E1, CD, 00, 40, C{, 0098 

430 DATA 10,EE,FB, CO, 00, 00, 00, 00, DD, SE, 
00,DD,56,01, DD, 6E, 0717 

435 DATA 02,DD,66,03,06,15,CD, 19, BD,F3, 
C5,E5,06, 04, 1A,E6, 0DC4 

440 DATA 88,28,06,4F, 7E,E6, 77,B1, 77, 1A, 
E6, 44, 28,06, 4F, 7E, 140B 

445 DATA E6,BB,B1, 77, 1A,E6, 22, 28,06, 4F, 
7E,E6,DD,B1, 77, 1A, 1BF6 

450 DATA E6,11,28,06, 4F,7E,E6,EE, Bi, 77, 
23,13, 10,D0,E{, CD, 2348 

455 DATA 00, A0,C1,10,C5,FB, C9, 00,00, 00, 
00,00, 00,00, 00, 00, 27A2 

460 DATA 00, 00,00, 00, 00,00, 00, 00, 00, 00, 
00,00, 00, 00, 00, 00, 27A2 

700 CLS:PRINT " FICHIER LANGAGE MACHINE 
CORRECT..." 

710 PRINT:PRINT:PRINT 

720 PRINT "UNE TOUCHE POUR LA SAUVEGARD 

E...." 

730 CALL &BB18 

740 SAVE "EMPIBIN",B, 49C10, kA80 @ 





Le monstre SKUNK a capturé la 
princesse VAPSY de SHADOW 
ISLAND et l'a enfermée dans 
son château. Le roi NAKYPSO a 
fait appel à vous pour la 
délivrer. Mais attention ce ne 
sera pas facile car il vous faudra 
détruire toutes les briques de 
chaque salle du château. 


près le chargement, l’utilisateur 

pourra soit sélectionner le clavier, 
soit le joystick, soit la redéfinition des 
touches ou bien regarder le tableau des 
scores. 


THE MONSTER’S CASTLE est 
composé de 4 fichiers : 

— TMC.BAS (Loader BASIC) 

— TMC.SCR (Graphique) 

— TMC.PRG (Programme) 

— RECORD.DAT (Tableau des sco- 
res) 


Le fichier FM.BAS crée le fichier bi- 
naire TMC.SCR. 

Le fichier TABLEAU.BAS crée le fi- 
chier RECORD.DAT. 


Pour démarrer faire run‘ TMC”. 


THE MONSTER'S CASTLE a une 
petite particularité, ce programme pos- 
sède un tableau des scores permanent. 
C'est-à-dire que lorsque vous avez bat- 
tu un score du tableau des scores, l’ordi- 
nateur vous demande votre nom (la tou- 
che DEL ne fonctionnant pas), ensuite il 
l’enregistre sur la disquette en créant un 
nouveau fichier RECORD.DAT et en 
effaçant le fichier RECORD.BAK. 


C. CAUCHOIS 
et F. DUPUIS 





ASTUCES : 

— Pour obtenir des vies infinies, sup- 
primer dans le fichier TMC.PRG la li- 
gne 1340. 

— Pour obtenir de l’énergie infinie, 
rajouter dans le fichier TMC.PRG la li- 
gne 1235 pw=623. 

— Pour voir les différents tableaux en 
jouant au clavier, changer dans le fichier 
TMC.PRG la ligne 650 en : 

—650 sc=400 pour le tableau 02 

—650 sc=820 pour le tableau 03 

—650 sc=1280 pour le tableau 04 

—650 sc=1640 pour le tableau 05 

—650 sc=2120 pour le tableau 06 

—650 sc=2840 pour le tableau 07 

—650 sc=3200 pour le tableau 08 

—650 sc=3760 pour le tableau 09 

—650 sc=4240 pour le tableau 10 

—650 sc=4600 pour le tableau 11 

—650 sc=4990 pour le tableau 12 

—650 sc=5430 pour le tableau 13 

—650 sc=5960 pour le tableau 14 

—650 sc=6440 pour le tableau 15 

— Pour voir les différents tableaux en 

. jouant au joystick, faire comme précé- 
demment mais au lieu de modifier la li- 
gne 650, ce sera la ligne 830. 


PS : Pour lister le fichier TMC.PRG, 
faire LOAD“TMC.PRG” puis supprimer 
la ligne 140 car elle empêche le BREAK 
etle CTRL-SHIFT-ESC. 


LE JEU : 

THE MONSTER'S CASTLE est un 
casse-brique. Au début de la partie, après 
avoir choisi soit le clavier ou soit :e joys- 
tick, vous avez 4 vies et 100 % d’éner- 
gic. Avant de lancer votre balle, vous 
pouvez déplacer votre batte et lorsque 
vous vous serez placé, vous appuicrez sur 
le bouton de tir et la balle partira dans la 
direction de votre dernier déplacement. 


Les différentes briques sont les suivan- 
tes : 

—les briques rouges et blanches qui 
se détruisent ct qui valent 10 points 

— les briques grises et blanches en 
forme de briques (!) qui sont indestruc- 
tibles 

— les briques grises et blanches qui 
bougent et qui sont indestructibles 

— les briques grises et blanches for- 
mées de quatre triangles qui retirent 5 % 
au niveau d’énergie et qui sont indestruc- 
tibles 

Lorsque votre niveau d’énergie est à 
0, inutile de vous dire que vous perdez 
une vie. Tout les trois tableaux vous 
gagnez une vie supplémentaire et tout les 
deux tableaux vous avez le plein d’éner- 
gie. Lorsque vous avez détruit toutes les 
briques du tableau, un passage se crée 
en haut de l'écran. Une fois passé dans 
ce trou, vous irez au tableau suivant. A 
partir du deuxième tableau, le trou en bas 
du tableau est rétréci par des barres de 
briques qui retirent 5 % au niveau d’éner- 
gie, cela pourra vous rendre service, mais 
attention à votre niveau d’énergie. 





TMC-BAS 


>HB 
)BD 
>TH 


10 CLS 

20 MODE 0 

30 INK 0,0:INK 1,7:INK 2,16: INK 3,1 
INK 4,24: INK 5,26: INK 6,12:INK 7,1 
3:INK 8,3: INK 9,10:INK 10,14: BORDER 
0 


40 LOAD"THC. SCR" >LD 
45 CLEAR INPUT >DH 
50 READ a )CE 
60 IF a=-1 THEN RESTORE 220:G0T0 50 BE 
70 SOUND 1,a, 35,15 >HH 
80 IF INKEYS=CHR$(32) THEN 110 >XA 
90 1F INKEY(76)-0 THEN 110 >TN 
100 GOTO 50 >RC 
110 b=15 >UH 
120 b=b-1 )BF 
130 IF b=-1 THEN 180 HR 
140 READ a >JA 


150 IF a=-1 THEN RESTORE 220:G0T0 1 >DP 


40 


160 SOUND 1,a,35,b >HU 
170 GOTO 120 )YH 
180 FOR c={ TO 26 )CC 
190 LOCATE 20,25:PRINT" " DUE 
200 NEXT >DH 
210 RUN"THC. PRG" >LH 


220 DATA 95,95, 142,127, 119,106,95,9 >GH 
5,119,95,95,119,95,95, 142, 119,142, 1 
79,119,142,142, 106, 119,127, -1 





FM-BAS 


10 ? >LA 
20 ' PRESENTATION >LB 
30 LC 
4û CLS:HODE 0 >HB 


50 INK 0,0:INK 1,7:INK 2,16:INK 3,1 TP 
: INK 4,24: INK 5,26:INK 6,12:INK 7,1 
3:INK 8,3:INK 9,10:INK 10,14:BORDER 

0 
60 FOR a=0 TO 639 STEP 3::PLOT a,0, )ZT 
6:DRAY a, 130:NEXT:a=0 


70 x=CINT(RND#639) >NN 


80 y=CINT(RND#399) 

90 IF y<i32 THEN 80 

100 PLOT x,y,5 

110 a=ati 

120 IF a=100 THEN 140 

130 GOTO 70 

140 FOR a=169 TO 469 STEP 3:PLOT a, 
80,7:DRAN a,240:NEXT 

150 FOR a=80 TO 290 STEP 2:PLOT 69, 
a,7:DRAW 169,a:NEXT 


160 FOR a=80 TO 290 STEP 2:PLOT 469 


à, 7:DRAW 569,a:NEXT 

170 PLOT 173,80,0:DRAW 173,240:PLOT 
465,80,0:DRAN 465,240 

180 a-90:b=450 

190 DEG 

200 HOVE 319,160 

210 PLOT 319+50#C0S(a),160+504SIN(a 
),8 

220 DRAW 319+50xC05(b),160+50*SIN(b 
) 

230 a=a+2:b=b-2 

240 IF a=180 AND b-360 THEN 260 

250 GOTO 200 

260 FOR a=160 TO 80 STEP -2 

270 PLOT 269,a,8:DRAW 369, a:NEXT 
280 FOR a=240 TO 260 STEP 2:PLOT 18 

9,a,7:DRAN 209,a:NEXT 

290 FOR a=240 TO 260 STEP 2:PLOT 22 

9,a,7:DRAW 249,a:NEXT 

300 FOR a=240 TO 260 STEP 2:PLOT 26 

9,a,7:DRAU 289,a:NEXT 

310 FOR a=240 TO 260 STEP 2:PLOT 30 

9,a,7:DRAN 329,a:NEXT 

320 FOR a=240 TO 260 STEP 2:PLOT 34 

9,a,7:DRAN 369,a:NEXT 

330 FOR a=240 TO 260 STEP 2:PLOT 38 

9,a,7:DRAW 409,a:NEXT 

340 FOR a=240 TO 260 STEP 2:PLOT 42 

9,a,7:DRAN 449,a:NEXT 

350 FOR a=290 TO 310 STEP 2:PLOT 69 
a, 7:DRAU 89,a:NEXT 

360 FOR a=290 TO 310 STEP 2:PLOT 10 

9,a,7:DRAU 129,a:NEXT 

370 FOR a=290 TO 310 STEP 2:PLOT 14 

9,a,7:DRAN 169,a:NEXT 

380 FOR a=290 TO 310 STEP 2:PLOT 46 

9,a,7:DRAW 489,a:NEXT 

390 FOR a=290 TO 310 STEP 2:PLOT 50 

9,a,7:DRAN 529,a:NEXT 

400 FOR a=290 TO 310 STEP 2:PLOT 54 

9,a,7:DRAW 669, a:NEXT 

410 a=90:b=450 

420 MOVE 319,160 

430 PLOT 319+50#C0S(a), 160+50#SIN(a 
),0 

440 DRAW 319+50#C0S(b), 160+50#SIN(b 


21 





>CN 


) 

450 a=at25:b=b-25 

460 IF a=165 AND b=375 THEN 480 

470 GOTO 420 

480 a=155:b=385 

490 MOVE 319,160 

500 PLOT 319+50#C08S(a),160+504SIN(a 
),0 

510 DRAW 319+50#C0S(b),160+50#SIN(b 
) 

520 a=a+{15:b=b-15 

530 IF a=185 AND b=-355 THEN 550 

540 GOTO 490 

550 FOR a=155 TO 80 STEP -15:PLOT 2 
69,a,0:DRAW 369,a:NEXT 

560 FOR a=240 TO 340:PLOT 263,a,7:D 
RAU 379,a:NEXT 

570 PLOT 259,242,0:DRAUR 10,0:DRAWR 
0,20:DRAUR 20,0:DRAWR 0,-20:DRAUR 
20,0:DRAUR 0,20:DRAWR 20,0:DRAUR 0, 
-20:DRAWR 20,0:DRAWR 0,20:DRAUR 20, 
O:DRAYR 0,-20:DRAWR 10,0 

580 FOR a=340 TO 360 STEP 2:PLOT 26 
3,a,7:DRAY 283,a:NEXT 

590 FOR a=340 TO 360 STEP 2:PLOT 30 
9,a,7:DRAW 329,a:NEXT 

600 FOR a-340 TO 360 STEP 2:PLOT 35 
9,a,7:DRAW 379,a:NEXT 

610 PLOT 99,250,0:DRAW 99,210:PLOT 
103,250:DRAW 103,210:PLOT 139,170:D 
RAW 139,130:PLOT 143,170:DRAW 143,1 
30 

620 PLOT 499,250,0:DRAW 499,210:PLO 
T 503,250:DRAW 503,210:PLOT 539,170 
:DRAW 539, 130:PLOT 543, 170:DRAU 543 
,130 

630 a=90:b=450 

640 MOVE 296,320:PLOT 296+54#C0S(a), 
320+54SIN(a),0:DRAW 296+5#C0S(b),32 
0+54S{IN(b):a=at2:b=b-2 

650 IF a=180 AND b-360 THEN 670 

660 GOTO 640 

676 FOR a=320 TO 290 STEP -2:PLOT 2 
91,a,0:DRAN 301. a:NEXT 

680 a=90:b-450 

690 MOVE 344,320:PLOT 344+54C0S(a), 
320+54SIN(a),0:DRAW 344+5#C0S(b),32 
0+5#SIN(b):a=at2:b=b-2 

700 1F a=180 AND b=360 THEN 720 

710 GOTO 690 

720 FOR a=320 TO 290 STEP -2:PLOT 3 
39,a,0:DRAY 349,a:NEXT 

730 GOSUB 1920 

740 trt1$=CHR$(169)+CHR$(171)+CHR$( 
173)+CHR$(32)+CHR$(175)+CHR$(177)+C 

HR#(179)+CHR#(181)+CHR$(169)+CHR# C1 

73)+CHR$(183)+CHR$(185)+CHR$(181)+C 


LR 
NT 
2) 
)XJ 
CD 
)EY 


>CU 
>LH 
JUN 
)2J 
DAE 
>R4 


)JZ 


HRS(32)+CHRS (186) +CHR$ (188) +CHRS (18 
L)+CHRS (169) +CHR$ (190) +CHR$ (173) 

750 trt2$=CHR$(170)+CHR$(172)+CHR$C DBG 
174)+CHR$ (32)+CHR$ (176) +CHR$(178)4C 

HR$(180)+CHR$(182)+CHR$(170)+CHR$ C1 

74)4CHRS (184)+CHR$ (32) +CHR$ (182)+CH 

RS (32)4CHR$ (187) +CHRS (189) +CHRS (182 
)+CHRS (170)+CHR8(194)+CHR$ (174) 

760 PEN 10:PAPER O:LOCATE 1,1:PRINT 
trtis 

770 LOCATE 1,2:PRINT trt2s 

780 PLOT 571,62,1:DRAU 575,62, 1 :DRA 
V 583,62, 2:DRAV 587,62, 1 

790 PLOT 571,60,1:DRAU 575,60, 1 :DRA 
W 583,60, 2:DRAY 587,60, 1 

800 PLOT 567,58, 3:DRAN 575,58, 3:DRA 
W 579,58, 1:DRAV 591,58, 2:DRAU 599,5 
8,1 

810 PLOT 567,56,3:DRAN 575,56, 3:DRA 

\ 579,56,1:DRA4 591,56,2:DRAN 599,5 

hs 

820 PLOT 563,54,3:DRAV 567,54, 3:DRA 

U 575,54,5:DRAV 627,54,3 

830 PLOT 563,52, 3:DRA 567,52, 3:DRA 
W 575,52,5:DRAY 627,52,3 

8a0 PLOT 559,50, 1:DRAN 563, 50, 1 :DRA 
W 575,50,5:DRAY 587,50,3:DRA4 595,5 

0,4:DRAN 611,50,3 

850 PLOT 559, 48,1:DRAN 563,48, 1 :DRA 
W 575,48,5:DRAN 587,48,3:DRAU 595, 4 
B,4:DRAU 611, 48,3 

860 PLOT 623,50, 3:DRAU 631,50,3 

870 PLOT 623,48,3:DRAW 631,48, 3 

880 PLOT 559,46,1:DRAN 563, 46, 1 :DRA 
W 567,46,5:DRAU 571,46,3:DRAW 575,4 

6,5:DRAV 583,46, 1:DRAU 587, 46, 2:DRA 
V 595,46, 4:DRAV 603,46, 1:DRAW 635,4 
6,3 

890 PLOT 559,44,1:DRAV 563,44, 1 :DRA 
W 567,44,5:DRAU 571,44,3:DRAU 575,4 
4,5:DRAN 583,44,1:DRAN 567,44, 2:DRA 
V 595,44,4:DRAU 603, 44,1:DRAU 635, 4 
4,3 

900 PLOT 551,42, 4:DRAN 559, 42, 4:DRA 
V 563,42, 1:DRAU 567,42,5:DRAN 571,4 
2,3:DRAU 575,42,5:DRAN 583, 42, 1 :DRA 
V 587,42, 2:DRAV 591,42, 1:DRAU 595, 4 
2,4:DRAN 603,42,1:PLOT 619, 42, 3:DRA 
W 623,42,3:PLOT 631,42, 3:DRAN 639, à 
2,3 

910 PLOT 551, 40, 4:DRAW 559, 40, 4:DRA 
W 563,40, 1:DRAU 567, 40,5:DRAU 571,4 
0,3:DRAU 575,40,5:DRAN 583, 40, 1:DRA 
W 567,40,2:DRAV 591,40, 1:DRAU 595, 4 
0,4:DRAU 603, 40,1:PLOT 619,40, 3:DRA 
V 623,40, 3:PLOT 631,40, 3:DRA 639, 4 
0,3 


VV 


NU 


EG 





=? 


920 PLOT 547,38,4:DRAU 551,38,4:DRA >ZV 
W 559,38,3:DRA 571,38, 4:DRAU 575,3 
8,5:DRAU 587,38, 1:DRAU 591,38, 2:DRA 
V 595,38, 1:DRAU 599,38, 2:DRAV 603,3 
8,1:PLOT 619,38,3:DRAV 623, 38,3 

930 PLOT 547,36, 4:DRAU 551,36, 4:DRA 
V 559,36,3:DRAU 571,36,4:DRAU 575,3 
6,5:DRAW 587,36, 1:DRAN 591,36, 2:DRA 
V 595,36,1:DRA 599,36, 2:DRAU 603,3 
6,1:PLOT 619,36, 3:DRAN 623,36, 3 

940 PLOT 543,34,4:DRAU 583, 34, 4:DRA 
W 591,34,1:DRAV 599,34,2:DRAW 603,3 
4,1:PLOT 619,34, 3:DRAN 627, 34,3 

950 PLOT 543, 32, 4:DRAN 583, 32, 4:DRA 
W 591,32, 1:DRAU 599,32, 2:DRAW 603,3 
2,1:PLOT 619, 32,3:DRAV 627, 32,3 

960 PLOT 539,30, 4:DRAN 587, 30, 4:DRA 
W 595,30, 1:DRAV 599,30, 2:DRAU 603,3 
0,1:PLOT 623,30, 3:DRAW 627, 30,3 

970 PLOT 539, 28,4:DRAU 587, 28, 4:DRA LH 
V 595,28,1:DRAV 599, 28,2:DRAU 603, 2 
8,1:PLOT 623, 28,3:DRAW 627, 28,3 

980 PLOT 535,26, 4:DRAU 571,26, 4:DRA 
W 575,26,3:DRAU 587, 26,4:DRAW 603, 2 
6,1 

990 PLOT 535, 24,4:DRAU 571,24, 4:DRA 
V 575,24,3:DRAU 587, 24, 4:DRAW 603, 2 
4,1 

1000 PLOT 531,22, 3:DRAV 547,22, 3:DR 
AW 559,22, 4:DRAW 571,22, 3:DRAU 575, 
22,4:DRAN 579,22, 3:DRAW 587, 22, 4:DR 
AW 599,22, 1 

1010 PLOT 531,20, 3:DRAW 547,20,3:DR >LG 
AW 559,20, 4:DRAW 571,20, 3:DRAN 575, 
20,4:DRAN 579,20, 3:DRAW 567,20, 4:DR 
AW 599,20, 1 

1020 PLOT 531,18, 4:DRAU 547,18, 4:DR 
AU 559,18,3:DRAV 587,18, 4:DRAU 595, 
18,1:DRAN 599, 18, 2 

1030 PLOT 531,16,4:DRAV 547,16,4:DR >QK 
AW 559, 16,3:DRAN 587,16, 4:DRAN 595, 
16,1:DRAY 599, 16, 2 

1040 PLOT 531,14,4:DRAU 583,14, 4:DR 
AW 587,14,1:DRA 591, 14, 2 

1050 PLOT 531,12, 4:DRAU 583, 12,4:DR DCT 
AW 587,12, 1:DRAV 591, 12,2 

1060 PLOT 535,10, 4:DRAW 579,10, 4:DR >CW 
AW 583,10, 1:DRAW 587, 10,2 

1070 PLOT 535,8, 4:DRAN 579,8, 4:DRAN VF 
583,8,1:DRAY 587,8, 2 

1080 PLOT 539,6,4:DRAN 575,6,4:DRAU DYX 
579,6,1:DRAY 581,6, 2 

1090 PLOT 539,4,4:DRAM 575,4,4:DRAN >YP 
579,4,1:DRAN 581, 4,2 

1100 PLOT 547,2,4:DRAN 571,2, 4:DRAU DJG 
577,2,1 

1110 PLOT 547,0, 4:DRAN 571,0, 4:DRAN DJB 


vY 


LC 


CA 


22 


577,0,1 
1120 ? 

1130" F 

1140 ? 

1150 PLOT 0,0,1:DRAW O,45:DRAW 30,4 
5:PLOT 8,26:DRAN 20, 26 

1160 PLOT 8,0,1:DRAW 8,22:DRAU 22,2 
2:PLOT 28,41:DRAV 8,41:DRAW 8, 26 
1170 PLOT 4,0,2:DRAW 4,43:DRAU 28, 4 
3:PLOT 4,24:DRAW 22, 24 

1180 PLOT 0,0,1:DRAW 8,0:PLOT 30,41 
:DRAN 30,45:PLOT 22,22:DRAU 22,26 
1190 ? 

1200 ? L 

1210 ? 

1220 PLOT 69,0,1:DRAW 39,0:DRAW 39, 
45 

1230 PLOT 69,4:DRAV 47,4:DRAU 47,45 


1240 PLOT 69,2,2:DRAW 43, 2:DRAU 43, 
45 

1250 PLOT 69,0,1:DRAW 69,4:PLOT 39, 
4S:DRAN 47,45 

1260 " 

1270" Ÿ 

1280 " 

1290 PLOT 71,45,1:DRAN 83,21:DRAN 8 
3,0:PLOT 91,0:DRAV 91,21:DRAW 102, 4 
5 

1300 PLOT 79,45:DRAU 87,25:DRAV 94, 
45 

1310 PLOT 87,0,2:DRAW 87,20:DRAU 75 
,45:PLOT 87,20:DRAU 98, 45 

1320 PLOT 83,0,1:DRAW 91,0:PLOT 71, 
45:DRAN 79,45:PLOT 94,45:DRAU 102, 4 
5 

1330 ? 

1340 1 

1350 ? 

1360 PLOT 111,0,1:DRAV 141,0:PLOT 1 
11,4:DRAN 122,4:DRAN 122,41:DRAU 11 
1,41:PLOT 141,4:DRAU 131,4:DRAW 130 
,41:DRAW 141,41: PLOT 111,45:DRAW 14 
1,45 

1370 PLOT 111,2,2:DRAN 141,2:PLOT ! 
26,2:DRAW 126,43:PLOT 111,43:DRAU 1 
41,43 

1380 PLOT 111,0,1:DRAW 111,4:PLOT 1 
41,0:DRAN 141,4:PLOT 114,41:DRAU 11 
1,45:PLOT 141,41:DRAW 141,45 

1390 ? 

1400 ' N 

1410 ? 

1420 PLOT 149,0,1:DRAW 149, 45:DRAU 

159, 45:DRAU 169,8:DRAU 169, 45:PLOT 

157,0:DRAY 157,37:DRAU 171,0:DRAU 1 
79,0:DRAU 179,45 


JXK 
)YA 
)YB 
>PC 


1430 PLOT 153,0,2:DRAU 153, 43:DRAW 

175,2:DRAN 175,45 

1440 PLOT 149,0,1:DRAU 157,0:PLOT 1 

71,45:DRAV 179,45 

1450 " 

1460 ? G 

1470 

1480 PLOT 186,0,1:DRAV 186, 45:DRAN 

216,45:PLOT 186,0:DRAW 216,0:DRAW 2 
16,25:DRAU 204, 25 

1490 PLOT 216,41:DRAN 194, 41:DRAU 1 

94, 4:DRAW 208,4:DRAU 208,21 :DRAU 20 

4,21 

1500 PLOT 216,43, 2:DRAW 190, 43:DRAW 
190,2:DRAW 212,2:DRAN 212, 23:DRAU 

204, 23 

1510 PLOT 216,41,1:DRAV 216,45:PLOT 
204,21:DRAW 204, 25 

1520 ‘ 

1530 ? H 

1540 * 

1550 PLOT 249,0, 1:DRAW 249, 45:DRAU 

257,45:DRAU 265,24: DRAN 272, 45:DRAU 
280,45:DRAW 280,0 

1560 PLOT 257,0:DRAU 257,41:DRAW 26 

5,18:DRAN 272,41:DRAW 272,0 

1570 PLOT 253,0,2:DRAV 253, 43:DRAW 

265, 22:DRAU 276,43:DRAW 276,0 

1580 ? 

1590 * 0 

1600 " 

1610 PLOT 288,0, 1:DRAW 318,0:DRAW 3 
18,45:DRA 288, 45:DRAN 288,0:PLOT 2 

96,4:DRAU 310,4:DRAU 310,41:DRAU 29 
6,41:DRAN 296, 4:PLOT 292,2, 2:DRAV 3 
14,2:DRAN 314,43:DRAU 292, 43:DRAW 2 
92, 2 

1620 " 

1630 ' N 

1640 ? 

1650 PLOT 324,0, 1:DRAN 324, 45:DRAV 
332,45:DRAN 346,8:DRAN 346, 45:PLOT 
332,0:DRAW 332,37:DRAN 346,0:DRAV 3 
54,0:DRAN 354,45 

1660 PLOT 328,2, 2:DRAW 328, 43:DRAW 
350,2:DRAW 350, 43 

1670 PLOT 324,0,1:DRAW 332,0:PLOT 3 
46,45:DRAU 354,45 

1680 " 

1690 * K 

1700 " 

1710 PLOT 362,0,1:DRAN 362, 45:DRAU 
370,45:DRAN 370,25:DRAV 384, 45:DRAN 
392,45:DRAW 376,22:DRAN 392, 0:DRAV 
384,0:DRAM 370, 19:DRAV 370,0:DRAN 
362,0 

1720 PLOT 366,2, 2:DRAN 366, 43:PLOT 


UJ 


»YB 
)YC 
>YD 
)VD 


VV 


UH 


>UG 


| 


)YJ 
DYA 
RL 





372,22:DRAU 388, 43:PLOT 370, 22:DRAW 
388,43:PLOT 370,22:DRAU 388, 2:PLOT 
372,23:DRAN 388,2:PLOT 370,21:DRAN 
388,2:PLOT 386, 4:PLOT 386, 41:PLOT 
380, 37,2 

1730 ‘ 

1740" E 

1750 " 

1760 PLOT 402,0,1:DRAW 432,0:DRAW 4 
32,4:DRAN 410, 4:DRAV 410,20:DRAW 42 
0,20:DRAU 420,24: DRAU 410, 24:DRAU 4 
10,41:DRAU 432,41:DRAN 432, 45: DRAW 
402, 45:DRAU 402, 0 

1770 PLOT 428,2, 2:DRAV 406, 2:DRAU à 
06,43:DRAW 428, 43:PLOT 406, 22:DRAN 
416,22 

1780 * 

1790 ' Ÿ 

1800 " 

1810 PLOT 441,45,1:DRAV 453,21 :DRAW 
453,0:PLOT 461,0:DRAN 461, 21:DRA 
472,45 

1820 PLOT 449,45:DRAN 457,25:DRAW 4 
64,45 

1830 PLOT 457,0,2:DRAW 457, 20:DRAW 
445,45:PLOT 457,20:DRAV 468, 45 

1840 PLOT 453,0, 1:DRAW 461,0:PLOT 4 
41,45:DRAN 449, 45:PLOT 464, 45:DRAW 
472,45 

1850 ' 

1860 ” 5 

1870 " 

1880 PLOT 482,0, 1:DRAM 512,0:DRAN 5 
12,24:DRAV 490, 24:DRAW 490, 41 : DRAW 
512,41:DRAU 512, 45:DRAN 482, 45:DRAN 
482, 20:DRAW 504, 20:DRAV 504, 4:DRAW 
482,4:DRAU 482, 0 

1890 PLOT 486, 2,2:DRAU 508,2:DRA 5 
08,22:DRAV 486,22:DRAN 486, 43:DRAU 
508, 43 

1900 SAVE"THC. SCR", b, &CO00, &4000 
1910 GOTO 1910 

1920 SYHBOL AFTER 169 

1930 SYHBOL 169,0, 126, 126, 90, 90, 24, 
24,24 

1940 SYHBOL 170, 24, 24, 24, 24, 24, 60,6 

0,0 

1950 SYHBOL 171,0, 102, 102, 102, 102, 1 

02,102, 126 

1960 SYMBOL 172,126, 102, 102, 102, 102 
,102, 102,0 

1970 SYHBOL 173,0, 254, 254,98, 98, 104 
,104, 120 

1980 SYMBOL 174,120, 104, 104,98, 98, 2 

54,254, 0 

1990 SYHBOL 175,0, 198, 198, 238, 238, 2 

54,254, 254 


23 


)YE 
YF 


>2X 


ZH 


VV 


)2Q 
>HK 
>QA 
)FQ 


VV 


DX 


v 


KQ 


KT 


JJY 


)JA 


)LP 


2000 SYMBOL 176,254,214,214, 198,198 >LZ 
, 198, 198, 0 
2010 SYMBOL 177,0,56,56,108, 108,198 >JP 
, 198, 198 
2020 SYHBOL 178,198, 198, 198, 108,108 >JR 
56,56, 0 
2030 SYMBOL 179,0,198, 198,230, 230,2 >LH 
46,246,222 
2040 SYMBOL 180,222, 206,206,198, 198 >LV 
, 198, 198,0 
2050 SYHBOL 181,0,60,60,102,102,96, )FC 
96,60 
2060 SYMHBOL 182,60,6,6, 102,102,60,6 >DH 
0,0 
2070 SYMBOL 183,0,252,252,102,102,1 DKY 
02, 102,124 
2080 SYMBOL 184,124, 108, 108, 102,102 >LG 
, 226, 226,0 
2090 SYMBOL 185,0,24,24,24,24,48,4B )CX 
,0 
2100 SYMBOL 186,0,60, 60, 102, 102,192 DJ 
, 192, 192 
2110 SYMHBOL 187,192,192, 192,102,102 DJY 
,60,60,0 
2120 SYHBOL 188,0,24,24,60,60, 102,1 >GY 
02,102 
2130 SYMHBOL 189, 102,126, 126,102,102 >KX 
, 102, 102,0 
2140 SYHBOL 190,0,240,240,96,96,96, >FN 
96,96 
2150 SYMBOL 191,96,98, 98, 102, 102,25 >HG 
4,254,0 
2160 RETURN 

TMC-PRG 
LO OO HAMMEMNMMNNNNNNMNENNUUENNEEX )LA 
20 ' #4 ## LB 
30 ?* ## THE MONSTER'S CASTLE ##  )LC 
40 ! #4 #*# DLD 
50 ? #x BY #4  )LE 
60 ! #4 #4 DLF 
70? #1 FREDERIC DUPUIS #4 )LG 
80 ' #4 #4  DLH 
90 ? #4 AND #4  )LJ 
100 '## H#  RB 
110 #1 CYRIL CAUCHOIS #4 »RC 
120 '## #4  ODRD 
130 'HAMMEHANEENMENNNMENANNANAYEX DRE 
140 KEY DEF 66,0,0,0,0:POKE BBDEE,& >CB 
cg 
150 DIM sc(i1),nm$(11),letr$(6) )YY 
160 1ft$=CHR$(242) :rgt$=CHR$(243):f )GG 
ir$=CHR$(32) :ps$=CHR$ (13) 
170 CLS:MODE 1 >UG 


180 SPEED KEY 10,1 

190 INK O0,0:INK 1,20:INK 2,2:INK 3, 
14:BORDER 0 

200 GOSUB 6020 

210 trti$=CHR$(169)+CHR$(171)+CHR$( 
173)+CHR$(32)+CHR$(175)+CHR$(177)+C 
HR$(170)+CHR$(181)+CHR$(169)+CHR$ C1 

73)+CHR$(183)+CHR$(185)+CHR$(181)+C 

HR#(32)+CHR$(186)+CHR$(188)+CHR$ (18 
1)+CHR$(169)+CHR$(190)+CHR$ (173) 
220 trt2$=CHR$(170)+CHR$(172)+CHR$( 
174)+CHR$(32)+CHR$(176)+CHR$(178)+C 
HR$(180)+CHR$(182)+CHR$(170)+CHR$ C1 

74)+CHR$(184)+CHR$ (32) +CHR$ (182) +CH 
R$(32)+CHR$(187)+CHRS# (189) +CHR$ (182 
)+CHR$(170)+CHR$(191)+CHRS$ (174) 

230 PEN 2:PAPER U:LUCATE 10,5:PRINT 
trtis 

240 LUCATE 10,6:PRINT trt2$ 

250 LOCATE 12,10:PEN 1:PRINT "1.KEY 
BOARD" 

260 LOCATE 12,12:PEN 1:PRINT "2.J0Y 
STICK" 

270 LOCATE 12,14:PEN 1:PRINT "3.RED 
EFINE KEYS" 

280 LOCATE 12,16:PEN 1:PRINT "4.SEE 
HIGH SCORES" 

290 LOCATE 2,24:PEN 3:PRINT "FROGRA 
MMING AND GRAPHICS BY FRED & BOB" 

300 LOCATE 7,25:PRINT "MUSIC ADAPTE 
D BY FRED & BOB" 

310 CLEAR INPUT 

320 r$=INKEYS:IF r$="" THEN 320 

330 IF r$="1" THEN GOTO 610 

340 IF r$="2" THEN GOTO 790 

350 IF r$="3" THEN GOTO 440 

360 IF r$="4" THEN sc=0:G0TO 2240 
370 IF r$=fir$ THEN 610 

380 IF INKEY(76)-0 THEN 790 

IF INKEY(64)=0 THEN 610 

IF INKEY(65)=0 THEN 790 

IF INKEY(57)=0 THEN 440 

IF INKEY(56)-0 THEN sc=0:GO0T0 2 


GOTO 320 

SPEED KEY 100,100 

CLS:LOCATE 12,12:PRINT"LEFT" 

r$=INKEYS:1F r$="" THEN 460 

1ft$=r$ 

480 LOCATE 12,12:PRINT"RIGHT" 

490 r$=INKEYS:1F r$="" THEN 490 

500 rgt$=r$ 

510 LOCATE 12,12:PRINT'FIRE " 
fuir ré 


co r=! VTV ="" TUCUN CON 
Je 1#-1RALI T IE GLU 


530 fir$=r$ 
540 LOCATE 12,12:PRINT"PAUSED" 
550 r$=INKEYS:1F r$="" THEN 550 


>PB 
)EC 


V 


BY 


)XR 


LP 
>XD 
TX 
TJ 
TC 
DT 
>QY 
DUZ 
>UM 
UP 
>UH 
)EQ 


NY] 
)NZ 
)BE 
>XP 
)XC 
YU 
>XN 
)XD 
)ÿB 
DH 
ME 
>2N 
>XP 





560 ps$=r$ 

570 GOTO 170 

580 ? 

590 " LE CLAVIER 

600 ? 

610 DEFINT a-z:SPEED KEY 1,1 
620 RANDOMIZE TIME 


‘630 CLS 


640 GOSUB 6020 

650 sc=0 

660 p=13:pp=24:dx=-1:dy=-1:x=17:y=2 
3:pw=623 

670 1f=3:1v1=0:jsk=0:GOSUB 2050 

680 PEN 2:LOCATE 3,1:PRINT "SCORE:" 
SC 

690 PEN {:PAPER 2:LOCATE x{,y{:PRIN 
T CHR$(av):LOCATE x3,y3:PRINT CHR$( 
nv2):PEN Z:PAPER 0 

700 LOCATE p,pp:PEN 2:PRINT" "::PR 
INT CHR$(146):;:PEN 1:PAPER 2:PRINT 

CHR$(147)+CHR$ (148) ;:PEN 2:PAPER 0: 
PRINT CHR$(151);:PRINT" M":LOCATE x 
,Y:PRINT CHR$(145) 

710 r$=INKEYS:1F r$="" THEN 710 

720 IF r$=1ft$ THEN x=x-2:dx=-{:dy= 
-{:p=p-2:LOCATE x+2,y:PRINT" ":1F p 
=px-2 THEN p=pt2:x=x+2:G0T0 700 ELS 
E 700 

730 IF r$=rgt$ THEN x=xt2:dx=1:dy=1 
:p=pt2:LOCATE x-2,y:PRINT" ":1F p=p 
y+2 THEN p=p-2:x=x-2:G0T0 700 ELSE 

700 

740 IF r$=fir$ THEN GOTO 960 

750 GOTO 710 

760 ? 

7170 " LE JOYSTICK 

780 ? 

790 DEFINT a-z:SPEED KEY {,1 

800 RANDOMIZE TIME 

810 CLS 

820 GOSUB 6020 

830 sc=0 

840 p=13:pp=24:dx=-1:dy=-1:x=17:y=2 
3:pw=623 

850 1f=3:1v1=0:j5k=1:GO0SUB 2050 

860 PEN 2:LOCATE 3,1:PRINT "SCORE:" 
HET 4 

870 PEN 1:PAPER 2:LOCATE xf,y{:PRIN 
T CHR$(mv):LOCATE x3,y3:PRINT CHR$( 
nv2):PEN 2:PAPER 0 

880 LOCATE p,pp:PEN 2:PRINT" "::PR 
INT CHR$(146);:PEN 1:PAPER 2:PRINT 

CHR$(147)+CHR$ (148); :PEN 2:PAPER 0: 
PRINT CHR$(151)::PRINT" ":LOCATE x 
,Y:PRINT CHR$(145) 

890 IF INKEY(74)-0 THEN x=x-2:dx=-f 
:dy=-1:p=p-2:LOCATE x+2,y:PRINT" ": 





24 


>XK 
>EH 


>BC 


>vC 
>ZG 
>TD 
TE 
>TF 
>WD 
>NX 
UD 
>PK 
)YG 
>NX 


AD 
>GK 
DLL 


>DP 


)LV 


IF p=px-2 THEN p=pt2:x=x+2:G0T0 880 
ELSE 880 

900 IF INKEY(75)=0 THEN x=x+2:dx=1: 

dy=i:p=p+2:LOCATE x-2,y:PRINT" ":1F 
p=py+2 THEN p=p-2:x=x-2:G0T0 880 E 

LSE 880 

910 IF INKEY(76)-0 THEN GOTO 960 

920 GOTO 880 

930 

940 ? LE JEU 

950 

960 IF jsk=1 THEN 990 

970 a$=INKEY$:p=pt2#(a$=1ft$ AND p> 

px)-2#(a$=rgt$ AND p<py) 

980 GOTO 1010 

990 IF INKEY(74)=0 AND p>px THEN p= 

p-2 | 

1000 IF INKEY(75)=0 AND p<py THEN p 
=p+2 

1010 LOCATE p,pp:PEN 2:PRINT" ";:P 
RINT CHR$(146)::PEN 1:PAPER 2:PRINT 
CHR$(147)+CHR$(148);:PEN 2:PAPER 0 
PRINT CHR$S(IS1);:PRINT" " 

1020 IF INKEY$=ps$ THEN 1030 ELSE 1 

040 

1030 LOCATE x,y:PRINT CHR$(145):1F 
INKEY$="" THEN 1030 ELSE 1040 

1040 c=TEST((x+dx)#16-8,408-y#16):1 

F c(20 THEN SOUND 1,200,1:dx=-dx:[F 
c=2 THEN SOUND 1,100,1:pu=pu-5 ELS 

E IF c=3 THEN SOUND 1,50,{:LOCATE x 

dx, y:PRINT" :sc=sc+10: j=j-1 

1050 c=TEST(x#16-8,408-(ytdy)#16):1 

F c@0 THEN SOUND 1,200,1:dy=-dy:1F 
c=2 THEN SOUND 1,100, {1:pu=pu-5 ELS 

E IF c=3 THEN SOUND 1,50,1:LOCATE x 
,Y-dy:PRINT" ":sc=sct10:j=j-1:GOTO 

1040 ELSE 1040 

1060 c=TEST((x+dx)#16-8,408-(y+dy)# 

16):1F c@0 THEN SOUND 1,200, {:dy=- 

dy:1F c=2 THEN SOUND 1, 100, 1:pu=py- 

5 ELSE IF c=3 THEN SOUND 1,50, 1:LOC 

ATE xtdx,y-dy:PRINT" ":sc=5c+10: j=) 

-1:G0T0 1040 ELSE 1040 

1070 IF jsk={ THEN 1100 

1080 a$=INKEY$:p=p+2#(a$=1ft$ AND p 

>px)-2#(a$=rgt$ AND p<py) 

1090 GOTO 1120 


1100 1F INKEY(74)=0 AND p>px THEN p ) 


=p-2 

1110 IF INKEY(75)=0 AND p<py THEN p 
=p+2 

1120 LOCATE p,pp:PEN 2:PRINT" "::P 
RINT CHR$(146);:PEN 1:PAPER 2:PRINT 
CHR$(147)+CHR$(148)::PEN 2:PAPER 0 
:PRINT CHR$(IS{);:PRINT" " 

1130 IF INKEY$=ps$ THEN 1140 ELSE 1 


>HK 


)QN 
DEK 


150 

1140 LOCATE x,y:PRINT CHR$(145):1F 

INKEY$="" THEN 1140 ELSE 1150 

1150 LOCATE x,y:PRINT" * 

1160 IF j=0 THEN GOTO 1960 

1170 xi=xitx2:1F xi=xyl THEN xi=xyi 

-2#x2:x2=-x2 

1180 IF xi=xy2 THEN xi=xy2-2#x2:x2= 

-12 

1190 LOCATE xi-x2,y{:PRINT " ":LOCA 

TE xi,y1:PEN 1:PAPER 2:PRINT CHR$(n 

v):PEN 2:PAPER 0 

1200 x3=x3+x4:1F x3=xy3 THEN x3=xy3 

-2#x4:x4=-x4 

1210 ÏF 

-14 

1220 LOCATE x3-x4,y3:PRINT " ":LOCA 

TE x3,y3:PEN 1:PAPER 2:PRINT CHR$ (a 

v2):PEN 2:PAPER 0 

1230 x=xtdx:y=ytdy 

1240 PLOT 623,326,0:DRAN pw,326 
1250 IF pu=523 THEN 1310 

1260 IF y>24 THEN 1310 

1210 IF y<3 THEN €05Ù 

1280 LOCATE x,y:PRINT CHR$(145) 
1290 PEN 2:LOCATE 3,1:PRINT "SCORE: 
"sc 

1300 GOTO 960 

1310 ? 

1320 ' PERDU 

1330 

1340 1f=1f-1 

1350 IF 1f=-1 THEN 1370 

1360 GOTO 1380 

1370 LOCATE 33,1:PRINT'LIFE: 0":G0T 
0 1390 

1380 LOCATE 33,1:PRINT'LIFE:";1f 
1390 LOCATE p+1,pp:PEN 2:PRINT " "; 
:PRINT CHR$(146);:PEN 1:PAPER 2:PRI 
NT CHR$(147)+CHR$(148) ;:PEN 2:PAPER 
O:PRINT CHR$(151);:PRINT " " 

1400 IF 1f=-1 THEN GOTO 2130 

1410 PLOT 523,326,2:DRAW 623,326: pu 
=623:x=p+4:y=pp-1 

1420 IF jsk=0 THEN 680 

1430 GOTO 860 

1440 

1450 ' TABLEAU PERMANENT 

1460 ? 

1470 MODE 1:1[NK 0,0:INK 1,13:INK 2, 
26:INK 3,6:BORDER O:PEN 2:PAPER 0 
1480 IF nf={ THEN 1550 

1490 nf=1 

1500 OPENIN "RECORD.DAT" 

1510 FOR k=1 TO 10 

1520 INPUT #9,sc(k),nm$(k) 

1530 NEXT k 


Dm h 
*0-xÿ4 


>HD 


TG 
>TQ 
>RQ 


>GG 


>RQ 


NF 
)YA 
»0J 
>PG 
NP 
)2Z 
>HP 


FE 
>XH 
DXJ 
>XK 
>DA 
>PN 
>HK 
)JB 


>BB 
)2E 


> 


=? 


1540 CLOSEIN 
1550 LOCATE 17,1:PRINT "HISCORE:";5 
c(10) 


1560 LOCATE 33,1:PRINT "LIFE:";1f 
1570 FOR k=2 TO 31 

1580 PAPER 1:PEN 2:LOCATE k,2:PRINT 
CHR$(149) 

1590 NEXT 


1600 FOR k=2 TO 23 

1610 LOCATE 2,k:PRINT CHR$(149) 
1620 NEXT 

1630 FOR k=2 TO 23 

1640 LOCATE 31,k:PRINT CHR$(149) 
1650 NEXT 

1660 LOCATE 13,2:PEN 2:PAPER 1:PRIN 
T CHR$(211) ; "CLOSED" ;CHR$ (209) 

1670 PAPER O:PEN 2:LOCATE 34,4:PRIN 
T'POWER" 

1680 trt3$=CHR$(169)+CHR$(171)+CHR$ 
(473) :trt4$=CHR$(170)+CHR$(172)+CHR 
$(174) 

1690 trt5$=CHR$(175)+CHR$(177)+CHR$ 
(179)+CHR$(181)+CHR$(169)+CHR$(173) 
+CHR$(103)1CHR$(185)+CHR$(181) 

1700 trt6$=CHR$(176)+CHR$(178)+CHR$ 
(180)+CHR$(182)+CHR$(170)+CHR$(174) 
+CHR$ (184) +CHR$ (32) +CHR$ (182) 

1710 trt7$=CHR$(186)+CHR$(188)+CHR$ 
(181) +CHR$ (169) +CHR$(190)+CHR$ (173) 


1720 trt8$=CHR$(187)+CHR$(189)+CHR$ 
(182)+CHR$(170)+CHR$(191)+CHR$(174) 


1730 LOCATE 35,7:PRINT trt3$:LOCATE 
35,8:PRINT trt4$ 

1740 LOCATE 32,10:PRINT trt5$:LOCAT 
E 32,11:PRINT trt6$ 

1750 LOCATE 33,13:PRINT trt7$:LOCAT 
E 33,14:PRINT trt8$ 

1760 PLOT 518,328,3:DRAW 622,328:PL 
OT 514,326:DRA4 518,326:PLOT 518, 32 

A:DRAW 622,324:PLOT 622,326:DRAW 62 

6,326:PLOT 523,326,2:DRAW 623, 326 
1770 LOCATE 33,21:PRINT CHR$(164);" 
1990" :LOCATE 33,22:PRINT"FLYING" :LO 

CATE 33,23:PRINT"MONKEYS" 

1780 IF sc=0 THEN 2710 

1790 IF sc=400 THEN 2780 

1800 IF sc=820 THEN 2910 

1810 IF sc-1280 THEN 3060 

1820 IF sc=1640 THEN 3290 

1830 IF sc=2120 THEN 3520 

1840 IF sc=2840 THEN 3680 

1850 IF sc=3200 THEN 3790 

1860 IF sc-3760 THEN 3970 

1870 IF sc=4240 THEN 4190 

1880 IF sc=4600 THEN 4420 


25 





>HA 
)JP 


>BH 
LP 
>NB 


)LG 
)LJ 
>ZU 
)LA 
>LM 
)AB 
>LD 
>HQ 


)HA 


LA 


CP 


VV 


NA 


)LL 


LA 


TA 


La 


TZ 


XT 


)>PB 
>0G 
)Q2 
)RR 
)RY 
>RN 
RG 
>RA 
)RN 
>RC 
)RZ 


1890 IF 5sc=4990 THEN 4610 
1900 IF sc=5430 THEN 4910 
1910 IF sc=5960 THEN 5250 


1920 IF sc=6440 THEN 5460 
1930 ? 

1940 ' OUVERTURE 

1950 ? 


1960 50=225: j=-1 

1970 FOR k=20 TO 13 STEP -1 

1980 LOCATE k,2:PAPER O:PRINT" *:50 
UND 1,50,1 

1990 50-50-25 

2000 NEXT 

2010 GOTO 960 

2020 ? 

2030 ' LEVEL 

2040 ? 

2050 CLS:INK 0,0:1NK 1,13:INK 2,26: 
INK 3,6:BORDER O:PEN 2:PAPER 0 

2060 IF sc=7380 THEN 5790 

2070 Ivi=1vl+{:LOCATE 16,12:PRINT'L 
EVEL'";lvl 


2080 FOR tm=i TO 2500:NEXT 
2090 GOSUB 1470 

2100 IF jsk=0 THEN GOTO 680 
2110 IF jsk=1 THEN GOTO 860 
2120 

2130 ' GAME OVER 

2140 

2150 SPEED KEY 10,5:PEN 2:LOCATE 14 
,11:PRINT" , 

2160 LOCATE 14,12:PRINT" GAME * 
2170 LOCATE 14,13:PRINT" OVER " 
2180 LOCATE {4,14:PRINT" d 
2190 CLEAR INPUT 

2200 IF INKEY$=fir$ THEN 2240 
2210 IF INKEY(76)-0 THEN 2240 
2220 GOTO 2200 

2230 

2240 ' TABLEAU DES SCORES 

2250 ? 

2260 IF nt=1 THEN 2330 

2270 nf=1 

2280 OPENIN "RECORD. DAT" 

2290 FOR k=1 TO 10 

2300 INPUT #9,sc{k),na$(k) 

2310 NEXT k 

2320 CLOSEIN 

2330 IF sct=sc(1) THEN 2570 


2340 INK 0,0:1INK 1,20:INK 2,2:INK 3 
» 14:BORDER O:CLS:PEN 3:LOCATE 10, 12 
:PRINT®ENTER YOUR NAME : "; 

2350 SPEED KEY 10,5 

2360 FOR n=1 TO 6 

2370 CLEAR INPUT 

2380 r$=INKEYS:1F r$="" THEN 2380 
2390 letr$(n)=r$ 


>RP 
)RY 
>RF 
)RD 
)YF 
)YG 
>YH 
)LC 
TN 
>PN 


>QA 
>KD 
FD 
>XG 
>XH 
)XJ 
NJJ 


)RK 
)QL 


UD 
>XK 
JUR 
JUU 
>XH 
)XJ 
>XK 
UJ 


”2L 
24 
»xQ 
LQ 
DUR 
D 
>LH 
>XK 
YA 
"'B 
PR 
DEB 
>uz 
)LK 
> 
VD 
LH 
DUE 
LP 


>HH 
>CK 
?LQ 
)2Z 
)LZ 


2400 PRINT letr$(n): 

2410 NEXT n 

2420 na$=letr$({)tletr$(2)tletr$(3) 
tletr$(4)tletr$(5)+letr$(6) 

2430 FOR 5=10 TO {1 STEP -{ 

2440 IF sc<sc(s) THEN 2560 

2450 FOR v=2 TO s 

2460 sc(v-1)=sc(v):nm$(v-1)=nm$(v) 
2470 NEXT v 

2480 sc(s)=sc:na$(s)=na$ 

2490 OPENOUT "RECORD. BAS" 

2500 FOR k=1 TO 10 

2510 WRITE #9,sc(k),n8$(k) 

2520 NEXT k 

2530 CLOSEOUT 

2540 üERA, "RECORD. BAK" 

2550 GOTO 2570 

2560 NEXT 5 

ELU INK O,0:INK 1,20: INK Z,Z: INK 3 
,14:BURDER O:CLS:PEN Z:LUCATE 13,8: 
PRINT "SCORE  NAMHE'":PEN 3:PRINT 
2580 FOR t=10 TO 1 STEP -1 

2590 PRINT TAB(13)sc(t);TAB(20)na$( 
t) 

2600 NEXT t 

2610 PLOT 176,304,1:DRAW 176,80:DRA 
N 416,80:DRAN 416,304:DRAY 176,304 
2620 CLEAR INPUT 

2630 1F INKEY$-fir$ THEN 2670 

2640 IF INKEY(76)=0 THEN 2670 

2650 IF INKEY$-CHR$#(32) THEN 2670 

2660 GOTO 2630 

2670 CLS:MODE 1:SPEED KEY 10,1:G0T0 
230 

2680 ! 

2690 ’ TABLEAU 1 

2700 

2710 FOR k=8 TO 11:LOCATE 12,k:PEN 
3:PAPER 2:PRINT STRING$(10, 150) :NEX 

T:PEN 2:PAPER 1:LOCATE 12,5:PRINT S 
TRING$ (10, 149) :LOCATE 12,14:PRINT S 

TRINGS (4, 149) ;STRINGS (2, 152) STRING 
$(4,149) 

2720 px=i:py=25:j=40:x1=3:xyi=12:xy 
2=2:x2=1:yi={1:mv=150:x3=30:xy3-31: 
xy4=21:x4=-1:y3= 11 :mav2=150 

2730 PEN 2:PAPER 0 

2740 RETURN 

2750 ! 

2760 ’ TABLEAU 2 

2710 

2780 LOCATE 2,24:PEN 2:PAPER 1:PRIN 

T CHR$(149):LOCATE 31,24:PRINT CHR$ 
(149) 

2790 PEN 2:PAPER {:LOCATE {2,5:PRIN 

T CHR$(152) ;STRING$ (3, 149) ; :PEN 3:P 

APER 2:PRINT STRING#(2,150);:PEN 2: 


)PJ 
>VH 
)JA 


>RN 
>TH 
>GH 
>CN 
»XB 
)TZ 
>ux 
>LD 
JUU 
>VG 
)ZA 
)TC 
>ND 
UE 
RE 





PAPER 1:PRINT STRING$(3,149) ;CHR$(1 
52) 

2800 FOR k=6 TO 16:LOCATE 13,k:PRIN 
T CHR$(149):NEXT:FOR k=6 TO 16:LOCA 
TE 20,k:PRINT CHR$(149) :NEXT 

2810 PEN 3:PAPER 2:FO0R k=8 TO 11:L0 
CATE 6,k:PRINT STRING$(4, 150) :NEXT: 
FOR k=8 TO 11:LOCATE 24,k:PRINT STR 
ING$ (4,150) :NEXT 

2820 FOR k=8 TO 9:LOCATE 16,k:PRINT >DB 
STRING$ (2,150) :NEXT:FOR k=12 TO 13 
:LOCATE 16,k:PRINT STRING$(2, 150) :N 
EXT 

2830 PEN 2:PAPER {:LOCATE 2,25:PRIN 
T CHR$(149):LOCATE 6,25:PRINT STRIN 
G$(6,152):LOCATE 22,25:PRINT STRING 
$(6,152):LOCATE 31,25:PRINT CHR$(14 
9) 

2840 PEN 1:PAPER O:LOCATE 3,23:PRIN 
T CHR$(143) ;CHR$(192):LOCATE 29,23: 
PRINT CHR$(193) ;CHR$(143) 

2850 pp=24:px=3:py=23: j=42:x1=14:xy DXK 
1=20:xy2=13:x2=1:y1=16:mv=150:x3=30 
:xy3=31:xy4=2:x4=-1:y3=21:mv2=150:x 


=pt4:y=23 

2860 PEN 2:PAPER 0 >MH 
2870 RETURN >GA 
2880 ZA 
2890 ’ TABLEAU 3 >ZB 
2900 »#D 


2910 FOR k=6 TO B:LOCATE 6,k:PEN 3: DYU 
PAPER 2:PRINT STRING$(3,150):NEXT:F 
OR k=6 TO 8:LOCATE 25,k:PEN 3:PAPER 
2:PRINT STRING$(3, 150) :NEXT 

2920 FOR k=6 TO 7:PEN 3:PAPER 2:LOC 
ATE 15,k:PRINT CHR$(150);:PEN 2:PAP 
ER 1:PRINT STRING$ (2,149); :PEN 3:PA 
PER 2:PRINT CHR$(150):NEXT:LOCATE 1 
6,5:PRINT STRING$ (2, 150) :LOCATE 16, 
8:PRINT STRING$ (2,150) 

2930 PEN 2:PAPER 1:LOCATE 16,13:PRI 
NT STRING$ (2,152) 

2940 FOR k=17 TO 18:PEN 3:PAPER 2:L 
OCATE 5,k:PRINT CHR$(150);:PEN 2:PA 
PER 1:PRINT STRING$(2,149);:PEN 3:P 
APER 2:PRINT CHR$(150) :NEXT:LOCATE 
6,16:PRINT STRING$ (2,150) :LOCATE 6, 
19:PRINT STRING$ (2,150) 

2950 FOR k=17 TO 18:PEN 3:PAPER 2:L 
OCATE 25,k:PRINT CHR#(150) ;:PEN 2:P 


APEN {:PRINT STRINCS12 4hQ\.DCN 9: 
ADR LaTRINE SIRINU#SSS 140 qi LI ga 


PAPER 2:PRINT CHR#(150) :NEXT:LOCATE 
26,16:PRINT STRING$(2, 150) :LOCATE 
26,19:PRINT STRING$(2, 150) 

2960 PEN 3:PAPER 2:LOCATE 15,18:PRI >XB 
NT STRING$(4,150):PEN 2:PAPER 1:LOC 

ATE 14,19:PRINT STRING$(2, 149) ;STRI 


vV 


BL 


26 


NG$ (2,152) ;STRING$(2, 149) 

2970 PEN 2:PAPER 1:LOCATE 2,24:PRIN >VP 
T CHR#(149):LOCATE 31,24:PRINT CHR$ 
(149) :PEN 1:PAPER O:LOCATE 3,23:PRI 

NT CHR$(143) ;CHR$(192) :LOCATE 29,23 
:PRINT CHR$(193) ;CHR$ (143) 

2980 PEN 2:PAPER 1:LOCATE 2,25:PRIN DOUX 
T CHR$(149) :LOCATE 6,25:PRINT STRIN 
G$(6,152):LOCATE 22,25:PRINT STRING 
$(6,152):LOCATE 31,25:PRINT CHR$(14 

9) 

2990 1f=1f+1:PEN 2:PAPER O:LOCATE 3 DAK 
3,1:PRINT "LIFE:";lf 

3000 pu=623:1f=1f+{:pp=24:px=3:py=2 )AD 
3:j=46:x1=3:xy1=16:xy2=2:x2=1:y1=13 
:av=150:x3-30:xy3=3{:xy4=17:x4=-1:y 
3=13:mv2=150:x=pt4:y=23 


3010 PEN 2:PAPER 0 >LD 
3020 RETURN )EJ 
3030 DX] 
3040 ' TABLEAU 4 >XK 
3050 )YA 


3060 PEN 2:PAPER 1:LOCATE 3,5:PRINT DHD 
STRING$ (3,149) :LOCATE 28,5:PRINT S 
TRING$ (3,149) :LOCATE 3,18:PRINT STR 
ING$(3, 149) :LOCATE 28, 18:PRINT STRI 
NG$ (3, 149) 
3070 FOR k=11 TO 12:PEN 3:PAPER 2:L JP 
OCATE 15,k:PRINT CHR$(150);:PEN 2:P 
APER 1:PRINT STRING$ (2,149) ;:PEN 3: 
PAPER 2:PRINT CHR$(150) :NEXT : LOCATE 
16,10:PRINT STRING$ (2, 150) :LOCATE 
16,13:PRINT STRING# (2,150) 
3080 PEN 1:PAPER O:LOCATE 3,23:PRIN DFF 
T CHR$(143) ;CHR$(192) :LOCATE 29,23: 
PRINT CHR$(193) ;CHR$(143) 


3090 k=10:k1=11 XD 
3100 PEN 3:PAPER 2 >LG 
3110 LOCATE k,k1:PRINT CHR$(150) :LO LC 
CATE k+7,k1+7:PRINT CHR$(150) 

3120 k=kti:ki=ki-1 DMF 
3130 IF k=17 THEN 3150 >ND 
3140 GOTO 3110 >HA 
3150 k=17:k1=5 >0H 
3160 PEN 3:PAPER 2 DHE 
3170 LOCATE k,k1:PRINT CHR$(150):LO >LL 
CATE k-7,k1+7:PRINT CHR$(150) 
3180 k=k+1:ki=k1+1 >HK 
3190 IF k=24 THEN 3210 )NE 
3200 GOTO 3170 >HD 


3210 PEN 2:PAPER 1:LOCATE 2,25:PRIN DUH 
T CHR#(149):LOCATE 6,25:PRINT STRIN 
G$(6,152):LOCATE 22,25:PRINT STRING 
$(6,152):LOCATE 31,25:PRINT CHR$(14 

9) 

3220 LOCATE 2,24:PRINT CHR$(149):LO >GU 
CATE 31,24:PRINT CHR$(149) 


3230 pp=24:px=3:py=23: j=36:x1=3:xy1 
={0:xy2=2:x2=1:y1=12:mv-150:x3-30: x 
y3=3i:xÿ4=23:x4=-1:y3=12:mv2= 150: x= 
pt4:y=23 

3240 PEN 2:PAPER 0 

3250 RETURN 

3260 ? 

3210 ' TABLEAU 5 

3280 ? 

3290 PEN 2:PAPER 1:LOCATE 11,6:PRIN 
T STRING$(3,149):LOCATE 20,6:PRINT 
STRING$ (3, 149) :LOCATE 3,16:PRINT ST 
RING$(4,149):LOCATE 27,16:PRINT STR 
ING$ (4,149) 

3300 LOCATE 6,9:PRINT STRING# (2,152 
):LOCATE 26,9:PRINT STRINGS$ (2,152): 
LOCATE 16,19:PRINT STRING$ (2,152) 
3310 FOR k=10 TO 11:LOCATE G,k:PRIN 
T STRING$(2,149):LOCATE 26,k:PRINT 
STRINGS$ (2, 149) :NEXT 


3320 PEN 3:PAPER 2:FOR k=9 TD 10:LÙ 


CAÏE 11,k:PRINT STRINGS(3, 150) :LOCA 
TE 20,k:PRINT STRING$(3, 150) :NEXT 
3330 k=11:k1=11 

3340 LOCATE k,k1:PRINT STRINGS (4,15 
0) 

3350 k=k+{:ki=k1+1 

3360 IF k=16 THEN 3380 

3370 GOTO 3340 

3380 k=16:k1=14 

3390 LOCATE k,k1:PRINT STRINGS(4,15 
0) . 

3400 k=kti:ki=k1-1 

3410 IF k=20 THEN 3430 

3420 GOTO 3390 

3430 LOCATE 16,16:PRINT STRINGS (2, 1 
50) 

3440 PEN {:PAPER O:LOCATE 3,23:PRIN 
T CHR$(143)+CHR$(192) :LOCATE 29,23: 
PRINT CHR$(193)+CHR$ (143) 

3450 PEN 2:PAPER {:LOCATE 2,25:PRIN 
T CHR$(149):LOCATE 6,2S:PRINT STRIN 
G$(6,152) :LOCATE 22,25:PRINT STRING 
$(6,152):LOCATE 31,25:PRINT CHR$(14 
9):LOCATE 2,24:PRINT CHR$(149) :LOCA 
TE 31,24:PRINT CHR$(149) 

3460 pu=623:pp=24:px=3:py=23:j=48:x 
1=3:xy1=16:xy2=2:x2=1:y1=19:mv={50: 
x3=30:xy3=31:xy4=17:x4=-1:y3=19:mv2 
=150:x=pt4:y=23 

3470 PEN 2:PAPER 0 

3480 RETURN 

3490 ? 

3500 ' TABLEAU 6 

3510 ? 

3520 FOR k=7 TO 18:PEN 3:PAPER 2:L0 
CATE 6,k:PRINT CHR$(150) :NEXT 


ux 


Vv 


ŸYE 


DY 


V 


JF 


Ÿ 


>MF 
)FJ 
NY 
>YA 
)YB 
KE 





3530 FOR k=7 TO 18:LOCATE 9,k:PRINT 
CHR$(150) :NEXT 

3540 FOR k=7 TO 18:LOCATE 12,k:PRIN 
T CHR$(150) :NEXT 

3550 FOR k=7 TO {8:LOCATE 21,k:PRIN 
T CHR$(150):NEXT 

3560 FOR k=7 TO {8:LOCATE 24,k:PRIN 
T CHR$(150) :NEXT 

3570 FOR k=7 TO 18:LOCATE 27,k:PRIN 
T CHR$(150) :NEXT 

3580 PEN 2:PAPER 1:LOCATE 6,6:PRINT 
DTRINGS(T,149):LOCATE 21,6:PRINT S 
TRING$ (7,149) 

3590 LOCATE 6,19:PRINT STRING$(7,14 
9):LOCATE 21,19:PRINT STRING$(7,149 
) 

3600 PEN L:PAPER O:LOCATE 3,23:PRIN 
T CHR$(143)+CHR$(192) :LOCATE 29,23: 
PRINT CHR$(193)+CHR$ (143) 

3610 PEN 2:PAPER {:LOCATE 2,25:PRIN 
T CHR$(149) :LOCATE 6,25:PRINT STRIN 
G$(6,152):LOCATE 22,25:PRINT STRING 
$(6,152):LOCATE 31,25:PRINT CHR$(14 
9):LOCATE 2,24:PRINT CHR$(149):LOCA 
TE 31,24:PRINT CHR$(149) 

3620 1f=1f+{:pp=24:px=3:py=23: j=72: 
x1=20:xyi=21:xy2=12:x2=-{:y1=6:mv=t 
50:x3=13:1y3=21:xy4=12:x4=1:y3=19:m 
v2=150:x=p+t4:y=23 

3630 PEN 2:PAPER 0 

3640 RETURN 

3650 ? 

3660 ' TABLEAU 7 

3670 | 

3680 PEN 2:PAPER {:LOCATE 3,6:PRINT 
STRING$ (12,149); :PEN 3:PAPER 2:PRI 
NT STRING$(4,150);:PEN 2:PAPER 1:PR 
INT STRING$(12,149) 

3690 PEN 3:PAPER 2:LOCATE 3,12:PRIN 
T STRING$(11,150);:PEN 2:PAPER 1:PR 
INT STRING$ (2,149): STRINGS(2,152):S 
TRING$ (2,149); :PEN 3:PAPER 2:PRINT 
STRING# (11,150) 

3700 PEN 2:PAPER {:LOCATE 3,18:PRIN 
T STRING$(11,149)::PEN 3:PAPER 2:PR 
INT STRING$(6,150);:PEN 2:PAPER 1:P 
RINT STRINGS$(11,149) 

3710 PEN {:PAPER O:LOCATE 3,23:PRIN 
T CHR#(143)+CHR$(192):LOCATE 29,23: 
PRINT CHR$(193)+CHR$(143) 

3720 PEN 2:PAPER 1:LOCATE 2,25:PRIN 
T CHR$(149):LOCATE 6,25:PRINT STRIN 
G$(6,152):LOCATE 22,25:PRINT STRING 
$(6,152):LOCATE 31,25:PRINT CHR$(14 
9) :LOCATE 2,24:PRINT CHR$(149) :LOCA 
TE 31,24:PRINT CHR$(149) 

3730 pw=623:pp=24:px=3:py=23: j=36:x 


27 


>UH 


YL 


v 


)EH 


1=3:xy1=31:xy2=2:x2=1:y1=15:mv=150: 
x3=30:xy3=3{:xy4=2:x4=-1:y3=9:mv2{ 

50:x=p+4:y=23 

3140 PEN 2:PAPER 0 

3750 RETURN 

3760 ‘ 

37170 ' TABLEAU 8 

3780 

3790 PEN 3:PAPER 2:k=3:1=8 

3800 k=k+2:1=1+1:LOCATE k, L:PRINT S 

TRING$(2,150):1F k=13 THEN 3810 ELS 
E 3800 

3810 k=17:1=14 

3820 k=k+2:1=1-{:LOCATE k, L:PRINT S 

TRING$(2,150):1F k=27 THEN 3830 ELS 
E 3820 

3830 PEN 2:PAPER 1:LOCATE 16,18:PRI 
NT STRING$ (2,152) 

3840 PEN 3:PAPER 2:LOCATE 9,7:PRINT 
STRING$ (16,150) 

3850 LOCATE 11,0:FRINT 9 
50) 

3860 LOCATE 13,9:PRINT STRING$(8, 15 
0) 

3870 PEN 2:PAPER {:LOCATE 15,10:PRI 
NT STRING$ (4,149) 

3880 LOCATE 15,14:PRINT STRING$(4,1 
49) 

3890 PEN 1:PAPER O:LOCATE 3,23:PRIN 
T CHR$(143)+CHR$(192):LOCATE 29,23: 
PRINT CHR$(193)+CHR$(143) 

3900 PEN 2:PAPER 1:LUCATE Z,25:PRIN 

T CHR$(149):LOCATE 6,25:PRINT STRIN 

G$(6,152):LOCATE 22,25:PRINT STRING 
$(6,152) :LOCATE 31,25:PRINT CHR$(14 
9) :LOCATE 2,24:PRINT CHR$(149) : LOCA 

TE 31,24:PRINT CHR$(149) 

3910 pp=24:px=3:py=23: j=56:x1=3:xy{ 
=17:xy2=1:x2=2:y1=18:mv=150:x3=30: x 
y3=32:xy4=16:x4=-2:y3=18:mv2=150:x= 

pt4:y=23 

3920 PEN Z:PAPER 0 

3930 RETURN 

3940 

3950 ? TABLEAU 9 

3960 

3970 PEN 3:PAPER 2:FO0R k=8 TO 10:L0 

CATE 8,k:PRINT CHR$(150) :LOCATE 16, 
K:PRINT CHR$(150) :NEXT 

3980 FOR k=6 TO 12:LOCATE 10,k:PRIN 

T CHR$(150):LOCATE 14,k:PRINT CHR$( 
150) :NEXT 

3990 FOR k=5 TO 16:LOCATE 12,k:PRIN 

T CHR$(150) :NEXT 

4000 LOCATE 11,5:PRINT STRING$ (3,15 

0) 

4010 LOCATE 9,7:PRINT STRING$(7,150 


V 
en | 
7" 


VV 


VY 


HF 
)FJ 
)YJ 
>YK 
)ZA 
>BC 


)GC 


EP 


VY 


EN 


VV 


} 

4020 LOCATE 8,9:PRINT STRING$(9, 150 
) 

4030 LOCATE 9,11:PRINT STRING$(7,15 
0) 

4040 LOCATE 11,13:PRINT STRINGS(3,1 
50) 


4050 PEN 2:PAPER {:LOCATE 12,17:PRI 


NT CHR$(152) 

4060 LOCATE 12,20:PRINT CHR$(152) 
4070 FOR k=18 TO 19:LOCATE 12,k:PRI 
NT CHR$(149):NEXT 

4080 LOCATE 20,16:PRINT STRING$(3,1 
49) 

4090 FOR k=17 TO 19:LOCATE 19,k:PRI 
NT STRING$(5, 149) :NEXT 

4100 LOCATE 20,20:PRINT STRING$(3,1 
49) 

4110 PEN 1:PAPER O:LOCATE 3,23:PRIN 
T CHR$(143)+CHR$(192) :LOCATE 29,23: 
PRINT CHR$(193)+CHR$(143) 

4120 PEN 2:PAPER 1:LOCATE 2,25:PRIN 
T CHR$(149):LOCATE 6,25:PRINT STRIN 
G$(6,152):LOCATE 22,25:PRINT STRING 
$(6,152):LOCATE 31,25:PRINT CHR$(14 
9):LOCATE 2,24:PRINT CHR$(149) :LOCA 
TE 31,24:PRINT CHR$(149) 

4130 pu=623:1f=1f+1:pp=24:px=9:py=2 
3: j=48:x1=13:xy1=19:xy2=12:xd={:y1z 
ÉCTES CONS CON DEET ASIE L'CEPRETE ES 
:yJ=18:mvez150:x=pt4:y=23 

4140 PEN 2:PAPER 0 

4150 RETURN 

4160 ? 

4170 ' TABLEAU 10 

4180 ? 

4190 PEN 3:PAPER 2:k=2:1=8 

4200 k=k+t1:1=1-1:LOCATE k, PRINT C 
HR$(LS0) :LOCATE k+23, 1+B:PRINT CHR$ 
(150) 

4210 IF k=7 THEN 4220 ELSE 4200 
4220 k=2:1=10 

4230 k=kt1:1=1+1:LOCATE k, L:PRINT C 
HR$(150) :LOCATE k+23,1-8:PRINT CHR$ 
(150) 

4240 IF k=7 THEN 4250 ELSE 4230 
4250 k=12:1=8 

4260 k=k+1:1=1-1:LOCATE k, L:PRINT C 
HR$(150):LOCATE k+5, 1+6:PRINT CHR$( 
150) 

4270 IF k=15 THEN 4280 ELSE 4260 
4280 k=12:1=10 

4290 k=k+i:1=1+4:LOCATE k, L:PRINT C 
HR$(150):LOCATE k+5,1-6:PRINT CHR$( 
150) 

4300 1F k=15 THEN 4310 ELSE 4290 
4310 LOCATE 3,16:PRINT STRING$(2,15 


DT 


v 


EA 


NZ 


XX 
>XG 





0):LOCATE 29,16:PRINT STRING$(2, 150 
):LOCATE 16,5:PRINT STRINGS$(Z, 150) 

4320 PEN 2:PAPER 1:LOCATE 16,13:PRI 
NT STRING$ (2,152) 

4330 LOCATE 5,16:PRINT STRING$(3, {4 
9) :LOCATE 26,16:PRINT STRING$(3, 149 
) 

4340 PEN 1:PAPER O:LOCATE 3,23:PRIN 

T CHR$(143)+CHR$(192) :LOCATE 29,23: 
PRINT CHR$(193)+CHR$(143) 

4350 PEN 2:PAPER 1:LOCATE 2,25:PRIN 
T CHR$(149) :LOCATE 6,25:PRINT STRIN 

G$(6,152) :LOCATE 22,25:PRINT STRING 
$(6,152):LOCATE 31,25:PRINT CHR$(14 

9) :LOCATE 2,24:PRINT CHR$(149) :LOCA 
TE 31,24:PRINT CHR$(149) 

4360 pp=24:px=3:py=23: j=36:x1=3:xyi 
=31:xy2=2:x2=1:y1=9:mv=150:x3=30: xy 

3=31:xy4=2:x4=-1:y3=19:mv2=150:x=pt 
4:y=23 

4370 PEN 2:PAPER 0 

4380 RETURN 

4390 

4400 ' TABLEAU 11 

4410 ? 

4420 PEN 2:PAPER 1:LOCATE 6,9:PRINT 
STRING$ (6, 149) 

4430 LOCATE 7,18:PRINT STRING$(5, 14 
9):LOCATE 13,15:PRINT STRING$ (4,149 
):LOCATE 14,13:PRINT STRING# (2,149) 
:LOCATE 14,12:PRINT CHR$(149) 

4440 LOCATE 24,8:PRINT CHR$(152) 
4450 LOCATE 8,8:PRINT STRING$(5,149 
) 

4460 FOR k=9 TO 11:LOCATE 13,k:PRIN 
T STRING$(13, 149) :NEXT 

4470 FOR k=9 TO 18:LOCATE 12,k:PRIN 
T CHR$(149) :NEXT 

4à80 FOR k=12 TO 15:LOCATE 1,K:PRI 
NT CHR$(149) :NEXT 

4490 PEN 3:PAPER 2:FO0R k=10 TO 17:L 
OCATE 8,k:PRINT STRING$(4, 150) :NEXT 


4500 LOCATE 7,5:PRINT STRING#(2, 150 
} 

4510 LOCATE 8,6:PRINT STRING$(2, 150 
) 

4520 LOCATE 9,7:PRINT STRING$ (3,150 
) 

4530 PEN 1:PAPER O:LOCATE 3,23:PRIN 
T CHR$(143)+CHR$(192) :LOCATE 29,23: 
PRINT CHR$(193)+CHR#(143) 

4540 PEN 2:PAPER 1:LOCATE 2,25:PRIN 
T CHR$(149):LOCATE 6,25:PRINT STRIN 
G$(6,152):LOCATE 22,25:PRINT STRING 
$(6,152):LOCATE 31,25:PRINT CHR$(14 
9):LOCATE 2,24:PRINT CHR$(149) : LOCA 


28 


)FJ 


>fA 
)YB 
DUE 


DN 


Vv 


)2L 


TE 31,24:PRINT CHR$(149) 

4550 pu=623:pp=24:px=3:py=23: j=39: x 
1=3:xy1=7:xy2=2:x2=1:y1=18:av={50:x 
3=13:1xy3=31:xy4=12:x4=1:y3=18:mv2={ 
50:x=p+4:y=23 

4560 PEN 2:PAPER 0 

4570 RETURN 

4580 

4590 ? TABLEAU 12 

4600 

4610 PEN 3:PAPER 2:k=2:1=10 

4620 k=kti:1=1-{:LOCATE k, L:PRINT C 
HR$(150) 

4630 LOCATE k+3,1+9:PRINT CHR$(150) 


4640 LOCATE k+6,L:PRINT CHR$(150) 
4650 LOCATE k+9,1+9:PRINT CHR$(150) 


4660 LOCATE k+15,1:PRINT CHR$(150) 


4670 LOCATE k+18,1+9:PRINT CHR$(150 
) 

4680 LOCATE k+21,1:PRINT CHR$(150) 
4690 LOCATE k+24,1+9:PRINT CHR$(150 
) 

4700 IF k=6 THEN 4710 ELSE 4620 
4710 k=2:1=14 

4720 k=kt{:1=1+{4:LOCATE k, L:PRINT C 
HR$(150) 

4730 LOCATE k+3,1-9:PRINT CHR$(150) 


4740 LOCATE k+6,1:PRINT CHR$(150) 
4750 LOCATE k+9,1-9:PRINT CHR$(150) 


4160 LOCATE k+15,/:PRINT CHR$(150) 


4770 LOCATE k+18,1-9:PRINT CHR$(150 
} 
4780 LOCATE k+21,1:PRINT CHR$(150) 


4190 LOCATE k+24,1-9:PRINT CHR$(150 
) 
4800 IF k=6 THEN 4810 ELSE 4720 


4810 PEN 2:PAPER 1:LOCATE 15,9:PRIN 
T STRING$(4,149):LOCATE 15,15:PRINT 
STRING$ (4,149) 


OMAN EINCATE 4C 49,DDIMT CTDINTe 
HUEU LUVARIL LVyiési RIRE JiRINUr 


4830 PEN 1:PAPER O:LOCATE 3,23:PRIN 
T CHR$(143)+CHR$(192) :LOCATE 29,23: 
PRINT CHR$(193)+CHR$(143) 

4840 PEN 2:PAPER {:LOCATE 2,25:PRIN 
T CHR$(149):LOCATE 6,25:PRINT STRIN 
G$(6,152):LOCATE 22,25:PRINT STRING 
$(6,152):LOCATE 31,25:PRINT CHR$(14 
9) :LOCATE 2,24:PRINT CHR$(149) :LOCA 


>CG 


>DP 


TE 31,24:PRINT CHR$(149) 

4850 1f=1f+1:pp=24:px=3:py=23:j=44: )LZ 
xi=3:xy{=17:xy2=:x2=2:y1={2:mv=150 
:13=30:xy3=32:xy4=16:x4=-2:y3=12:mv 
2=150:x=pt4:y=23 


4860 PEN 2:PAPER 0 >HK 
4870 RETURN >GC 
4880 ? >2C 
4890 * TABLEAU 13 >2D 
4900 ? DYF 
4910 PEN 3:PAPER 2:LOCATE 5,5:PRINT DUU 
STRINGS (3, 150) 


4920 LOCATE 10,5:PRINT STRING$(3,15 )EA 
0) 
4930 LOCATE 10,7:PRINT STRING$(3,15 )ED 


0) 

4940 LOCATE 10,8:PRINT STRING$(2,15 EE 
0) 

4950 LOCATE 20,5:PRINT STRING$(3,15 EE 
0) 

4960 LÜCATE 20,9:PRINT STRINGS(3,15 )FB 
0) 

4970 LOCATE 25,5:PRINT STRING$(3,15 FD 
0) 

4980 LUCATE 12,6:PRINT CHR$(150) )ZN 
4990 LOCATE 12,9:PRINT CHR$(150) >2T 
5000 LOCATE 3,12:PRINT STRING$(3,15 EP 
0) 

5010 LOCATE 28,15:PRINT STRINGS(3,1 DFK 
50) 


5020 FOR k=6 TO 9:LOCATE 10,k:PRINT 
CHR$(150) :LOCATE 6,k:PRINT CHR$(15 
0) :NEXT 

5030 FOR k=5 TO 9:LOCATE 15,k:PRINT >ZR 
CHR$(150) :LOCATE 17,k:PRINT CHR$(I 
50):LOCATE 26,k:PRINT CHR$(150) :NEX 

T 


5040 FOR k=6 TO 7:LOCATE 20,k:PRINT DUA 
CHR$ (150) :NEXT 

5050 FOR k=7 TO 8:LOCATE 22,k:PRINT UF 
CHR$(150) :NEXT 

5060 k=14:1=16 0 
5070 k=k+1:1=1-{:LOCATE k, L'PRINT C LZ 

HR$(150) 

5080 IF k=18 THEN 5090 ELSE 5070 >XK 
5090 PEN 2:PAPER {:LOCATE 6,12:PRIN >WX 


T STRINGS(12, 149) 
5100 LOCATE 16,15:PRINT STRING#(12, >GB 
149) 


5110 LOCATE 6,5:PRINT CHR$(149) >YG 
5120 LUCATE 10, /:PRINT CHR$(143) >2G 
5130 LUCATE 16,9:PRINT CHK$(149) >ZR 
5140 LOCATE 21,7:PRINT CHR$(149) >ZL 
5150 LOCATE 26,5:PRINT CHR$(149) >2Q 
5160 LOCATE 16,19:PRINT STRING#(2,1 FU 








La 





% 
Lii 
L jh 


T CHR$(143)+CHR$(192) :LOCATE 29,23: 
PRINT CHR$(193)+CHR$(143) 

5180 PEN 2:PAPER {:LOCATE 2,25:PRIN >DA 
T CHR$(149):LOCATE 6,25:PRINT STRIN 
G$(6,152):LOCATE 22,25:PRINT STRING 
$(6,152):LOCATE 31,25:PRINT CHR$(14 
9):LOCATE 2,24:PRINT CHR$(149) :LOCA 

TE 31,24:PRINT CHR$(149) 


5190 pu=623:pp=24:px=3:py=23:j=53:x JF 
1=3:xy1=17:xy2={:x2=2:y1=19:av=160: 
13=30:xy3=32:xy4=16:x4=-2:y3=19:mv2 
={50:x=pt4:y=23 

5200 PEN 2:PAPER 0 >LG 
5210 RETURN )FB 
5220 ? )YB 
5230 ' TABLEAU 14 )YC 
5240 ? >YD 
5250 PEN 3:PAPER 2:LOCATE 3,11:PRIN DVL 


T STRING$(5,150) 

5260 LOCATE 26,11:PRINT STRING$(5,1 FN 
50) 

5270 LOCATE 3,8:PRINT STRING$(2,150 )EH 
} 


5280 LOCATE 14,8:PRINT STRINGS(6,15 DFC 
0) 

9290 LOCATE 29,8:PRINT STRINGS(2,15 DFF 
0) 

5300 LOCATE 3,5:PRINT STRING$(28,15 )ED 
0) 

5310 PEN Z:PAPER 1:LOCATE 3,14:PRIN DUN 
T STRING$(10, 149) 

5320 LOCATE 16,14:PRINT STRING$ (2,1 DFT 
49) 

5330 LOCATE 21,14:PRINT STRING$(10, >GZ 
149) 

5340 LOCATE 8,11:PRINT STRINGS(18,1 DFB 
49) 

5350 LOCATE 5,8:PRINT STRING$(9,149 )EE 


29 








) 

5360 LOCATE 20,8:PRINT STRING$(9,14 >FK 
9) 

5370 LOCATE 16,17:PRINT STRING$(2, 1 
52) 

5380 PEN 1:PAPER O:LOCATE 3,23:PRIN DFB 
T CHR$(143)+CHR$(192) :LOCATE 29,23: 
PRINT CHR$(193)+CHR$(143) 


5390 PEN 2:PAPER 1:LOCATE 2,25:PRIN >DD 
T CHR$(149) :LOCATE 6,2S:PRINT STRIN 
G$(6,152):LOCATE 22,25:PRINT STRING 
$(6,152):LOCATE 31,25:PRINT CHR$(14 
9):LOCATE 2,24:PRINT CHR$(149) :LOCA 

TE 31,24:PRINT CHR$(149) 

5400 pp=24:px=3:py=23: j=48:x1=3:xy1 DVT 
={f:xy2=tix2=2:y1={7:mv=150:x3=30: x 
y3=32:xy4=16:x4=-2:y3=17:mv2=i50:x= 
pté:y=23 

5410 PEN 2:PAPER 0 >HB 
5420 RETURN )FE 
5430 ? )YE 
5440 ' TABLEAU 15 YF 
5450 ? >YG 
5460 PEN 3:PAPER 2:LOCATE 9,7:PRINT DUD 
STRING$ (5,150) 


5470 LOCATE 20,7:PRINT STRING$(5,15 EG 
0) ; 


5490 LOCATE 19,8:PRINT STRINGS(7,15 DFM 
io LOCATE 8,9:PRINT STRING$(8,150 >EW 
"7 LOCATE 18,9:PRINT STRINGS$(8,15 
en LOCATE 8,10:PRINT STRING$ (2,15 
_ LOCATE 14,10:PRINT STRINGS(2,1 FF 


50) 

5540 LOCATE 18, {0:PRINT STRINGS(2,1 
50) 

5550 LUCATE 24,10:PRINT STRING$(2,1 
50) 

5660 LOCATE 9,{1:PRINT STRINGS(5,15 
0) 

5510 LOCATE {8,11:PRINT STRINGS(7,1 
50) 

5580 LOCATE 10,12:PRINT STRING$(5,1 
50) 

5596 LUCATE 19,12:PRINT STRINGS(5,1 
50) 

5600 LUCATE 12,1B8:PRINT STRING$(10, 
150) 

S6{U LOCATE 11,19:PRINT STRING$(12, 
150) 


5620 PEN Z:PAPER {:FOR k=10 TO f1:L 
OCATE 16,k:PRINT STRING$ (2, 149) :NEX 
T 

5630 LOCATE 15,12:PRINT STRING$ (4,1 
49) 

5640 FOR k=13 TO 14:LOCATE 14,k:PRI 
NT STRING#(6, 149) :NEXT 

5650 LOCATE 16,14:PRINT STRINGS(2,1 
52) 

5660 LOCATE 12,17:PRINT STRING$(10, 
149) 

5670 LOCATE 11,18:PRINT CHR$(149) 
5680 LOCATE 22,1B:PRINT CHR$(149) 
5690 LOCATE 10,19:PRINT CHR$(152) 
5700 LOCATE 23,19:PRINT CHR$(152) 
5710 PEN {:PAPER O:LOCATE 3,23:PRIN 
T CHR$(143)+CHR$(192) :LOCATE 29,23: 
PRINT CHR$(193)+CHR$(143) 

5720 PEN 2:PAPER 1:LOCATE Z,25:PRIN 
T CHR$(149) :LOCATE 6,25:PRINT STRIN 
G$(6,152):LOCATE 22,25:PRINT STRING 
$(6,152):LOCATE 31,25:PRINT CHR$(14 
9) :LOCATE Z,Z4:PRINT CHR$(149) :LOCA 
TE 31,24:PRINT CHR$(149) 


5130 pu=bi3:1t=1tt{:pp=24:px=3:py=£ ) 


3:j=9a:xi=10:xyi=14:xy2=9:x2=1:y1=f 
Oiav=t44:x3=20:xy3=24:xy4=19:x4=1:y 
3=10:mv2={a4:x=pt4:y=23 

5740 PEN Z:PAPER 0 

5750 RETURN 

5:60 ‘ 

5710 * CONGRATULATION 

5780 

5790 CLS:MODE 1 

5800 INK O,0:1INK 1,Z0:INK Z,Z: INK 3 
,14:BORDER 0 


5810 LÜCATE S,S:PRINT'YOU'VE DESTRO > 


YED THE MONSTER " 


COR LACATE 7IDNDIHMTAREUOTI CAUDANTC 
SOZÛ LOCATE 5, ZIPRINT'#ETH COURAGE. 
" 


YOU'VE DELIVED 


>FL 


)FJ 


FC 


)FW 


>FH 


)FY 


>GV 


)GY 


ut 


)FW 
>CG 
)FT 
>GJ 
)AZ 
>AC 
>AV 


)AQ 
>EG 


)DA 





5830 LOCATE 5,9:PRINT"THE PRINCESS 
OF THE KINGDOM. " 

5840 LOCATE 10,12:PRINT"FELICITATIO 
N" 

5850 PLOT 32,355:DRAW 32,179:DRAU 5 
43,179:DRAU 543,355:DRAN 32,355 
5860 READ so,dr 

5870 IF 50=-1 THEN 5920 

5880 SOUND 1,50,dr,15 

5890 GOTO 5860 

5900 DATA 190,96,1,1,239,96,1,1,213 
,26,1,1,319,96,1,1,1,1,1,1,1,1,319, 
96,1,1,213,96,1,1,190,96,1,1,239,96 
PS 

5910 DATA -1,-1 

5920 CLEAR INPUT 

5930 1F INKEY$="" THEN 5930 

5940 IF INKEY$-fir$ THEN 5980 

5950 IF INKEY(76)-0 THEN 5980 

6960 IF INKEY$-CHR$(32) THEN 5980 


5970 GOTO 5930 
5980 GOTO 2260 

5990 " 

6000 * LES GRAPHISMES 

6010 * 

6020 SYHBOL AFTER 144 

6030 SYMBOL 145,0,0,24,60,60, 24,0, 0 
6040 SYHBOL 146,0,1,3,3,3,3,1,0 
6050 SYMBOL 147,127,126, 124,126, 126 
,126,126, 127 

6060 SYMBOL 148,254,126,126,126,126 
,126,126, 254 

6070 SYMBOL 149,255, 32, 35, 32, 55,4, 
à,4 

6080 SYHBOL 150,255,191,191,191,191 
,191,129,255 

6090 SYMBOL 151,0, 128, 192, 192, 192, 1 
92, 128,0 

6100 SYHBOL 152,255, 126,60, 24, 24,60 
,126,255 

6110 SYMBOL 169,0, 126, 126, 90, 90, 24, 
24,24 

6120 SYHBOL 170,24, 24, 24, 24,24,60,6 
0,0 

6130 SYHBOL 171,0, 102, 102, 102, 102,1 
02,102, 126 

6140 SYMBOL 172,126, 102,102, 102, 102 
,102, 102,0 

6150 SYMBOL 173,0, 254, 254, 48, 46, 104 
,104, 120 

EIEU SYMBUL 1:4,120, 104, 104,98, 98, à 
54,25, 0 

6170 SYHBUL 175,0, 198, 198, 238, 236, 2 ) 


54,254, 254 
6180 SYHBUL 
,198, 198, 0 


1:6,254,214,214,198,198 


30 


>NK' 


JF 


>FK 


)DR 


>KK 


2KM 


AT 


)JV 


6190 SYHBOL 
,198, 198 
6200 SYHBOL 
,56,56, 0 
6210 SYHBOL 
46,246, 222 
6220 SYMHBOL 
,188, 198,0 
6230 SYHBOL 
96, 60 

6240 SYMBOL 
0,0 

6250 SYHBOL 
02,102, 124 
6260 SYMBOL 
,226, 226,0 
6270 SYMBOL 
,0 

6280 SYHBOL 
,192, 192 
6290 SYMBOL 
,60,60, 0 
6300 SYMBOL 188,0, £4, 24,60, 60, 102, 1 
02, 102 

6310 SYMBOL 189, 102, 126, 126, 102, 102 
,102, 102,0 

6320 SYMBOL 190,0, 240, 240, 26,96,96, 
96,96 

6330 SYMBOL 191,96,98, 98, 102, 102,25 
à,254,0 

6340 SYHBOL 192, 224, 248, 252,254, 254 
,255, 255,255 

6350 SYMBOL 193, 7,31,63,127, 127,255 
,255,255 

6360 RETURN 


177,0,56,56, 108, 108, 198 
178,198, 198, 198, 108, 108 
179,0, 198, 198, 230, 230, 2 
180, 222, 206, 206, 198, 198 
181,0,60, 60, 102, 102,96, 
182,60,6,6, 102, 102,60,6 
183,0,252, 252, 102, 102, 1 
184,124, 108, 108, 102, 102 
185,0, 24, 24,24, 24, 48,48 
186,0,60, 60, 102, 102, 192 


18:,192,192,192,10€, 10% 


TABLEAU-BAS 


10 CLS:MODE 1 

20 DIM sc(11),næ$(11) 

30 sc(1)=500:nm$(1)="DAVE" 

40 sc(2)=1000:nm$(2)="STEEVE" 
50 sc(3)=1500:nm$(3)="CHRIS" 
60 sct4)-2000:na$(4)="MIKE" 
70 sc(5)=2500:na$(5)="1AN" 

80 sc(6)=3000:na$(6)="NICK" 
90 sc(7)=3500:nm$(7)="CYRIL" 
100 sc(8)=4000:nm$(8)="BOB" 
110 sc(9)=4500:nm$(9)="PETER" 
120 sc(10)=5000:nm$(10)="FRED" 
130 OPENOUT "RECORD. DAT" 

140 FOR k=1 TO 10 

150 NRITE 49,5c(k),nm$(k) 

160 NEXT 

170 CLOSEOUT 

180 CALL 0 


JD 
)JN 
>LH 
)LZ 
)FG 
)DR 
XKC 
)LL 
>CB 


)JK 


>LK 
>NH 
JUL 
>XP 
DLL 
>VX 
JUA 
)VD 
NL 
>UX 
DXE 
DXT 
>UV 
>BK 
TX 
DEC 
>RJ 
>GH @ 


JEU 


B. BARBE 


Valable pour CPC 
464 - 664-6128 





Voici un jeu dont les règles n’ont pas besoin 
d'être expliquées en détail car il s'agit 
d'empiler des figures géométriques. 


C ela ne vous rappelle rien ? 
Alors tapez le lisüng et 


lancez-le, vous comprendrez mieux. 


® 


10 A=&9000:F=&A4C2:L=100:WHILE AC=F:FOR A=A TO At{S:READ C$:K- 
VAL("&M"+C$):5=5S+K+65536#(5+K)32767):1F A(=F THEN POKE A,K 

20 NEXT:READ D$:T=VAL("&M"+D#):1F TS THEN PRINT CHR$(7):"Erre 
ur ligne";L:END ELSE L=L+5 :WEND 

30 SAVE "tetro",b,&9000,&14C2 

100 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 01,01,00, 01, 00, 00, 00, 0003 

105 DATA 00,00,00,00, 19, 14,3E,00, CD, 0E, BC, 34, 13,90,FE,01,03E1 

110 DATA C2,29,90,11,8B,92,C3,2C,90,11,7F,94,21,00,C0, 34, 0A48 

115 DATA 14,90,47,C5,E5,3A,15,90,47,C5,E5,D5, 1A,22,D5,9A,122D 

120 DATA 32,0D,90,CD,8C,9B,D1,13,E1,23,23,23,23,C1,10,E9, 18FB 


125 DATA Ei, CD, B9,90,C1, 10, DC, C9, 53,54, 41,54, 4E, 45,58, 54, 20E3 : 


130 DATA 4C,45,56,45, 4C, 3E, 04, CD, 90, BB, 26,02, 2E, 02, 11,58, 2576 
135 DATA 90,06,04,E5,D5,C5, CD, 75, BB, 1A,CD, 5A, BB, C1, Di, Et, 2EFB 
140 DATA 24,13,10,EF, 26,10, 2E,0F, 11,5C, 90,06, 04, ES, DS, C5, 342A 
145 DATA CD, 75,BB, 1A,CD, SA, BB,C1,D1,E1,13, 24, 10,EF, 26,0F, 3C01 
150 DATA 2E,06,11,60,90,06,05,E5,D5, C5, CD, 75, BB, A, CD, SA, 42FE 
155 DATA BB,C1,D1,E1, 13, 24,10,EF,C9, C5, 06, 08, CD, 26, BC, 10, 4ABD 
160 DATA FB,C1,C9,42,41,52, 42, 45,20, 42,52,55, 4E, 4F, 2E, 20, 5092 
165 DATA 20,50,52,45,53,45,4E,54,45,54,45,54, 52, 4F, 2E, 28, 54FC 
170 DATA 30,35, 2F, 30,31, 2F, 39, 30, 26, 2D, 28, 31, 39, 2F, 30, 31, 5801 
175 DATA 2F,39, 30, 29,58, 66, 32, SD, 2E, 2E, 2E, 2E, 2E, 2E, 2E, 2E, 5B82 
180 DATA 53,50,45,45, 44, 20, 5B, 66, 31, SD, 2E, 2E, 2E, 2E, 2E, 2E, 5F76 
185 DATA 2E,2E, 44,52, 4F, 50, 20, 20, 5B, 66, 34, SD, 2E, 2E, 2E, 2E,6351 
190 DATA 26,26, 2E, 2E, 4E, 45,58, 54, 20, 20, 5B, 66, 39, SD, 2E, 2E, 673B 
195 DATA 2E, 2E, 2E, 2E, 2E, 2E,52, 49, 47, 48,54, 20,5B,66, 38, SD, 6B43 
200 DATA 2E, 2E, 2E, 2E, 2E, 2E, 2E, 2E,52,4F,54,41,54,45,5B,66,6F43 
205 DATA 37,50, 2E, 2E, 2E, 2E, 2E, 2E, 2E, 2E, 4C, 45, 46,54, 20, 20, 72B2 
210 DATA CD,5A,9B, 3E, 01, 32, 13,90, CD, 16,90, CD, 16,9B, 3E, 04, 78BB 
215 DATA CD,90,BB,21,F4,90,06,06,C5,E5, 26, 02, 2E, OA, CD, 75, 7FDO 
220 DATA BB,E1,06, 12, 7E, CD, SA, BB, 23, 10, F9, CD, 75, 92, CD, 75, 8826 
225 DATA 92,01, 10,E4, CD, 75,92, 26, 09, 2E, 0B, CD, 75, BB, 3E, 03, BEE7 
230 DATA CD,90, BB, 21, 3,92, 06, 04, 7E, CD, SA, BB, 23, 10, F9, CD, 964F 
235 DATA 06,BB, 06, 0F, CD, 75,92, 10,FB, 26,05, 2E, OB, CD, 75, BB, 0C65 
240 DATA 21,3E, 92, 06, 0D, 7E, CD, SA, BB, 23, 10,F9, 06,05, CD, 75, A242 


31 





Chargement et lancement : 

Tapez et sauvez le premier programme sous le nom 
de TETDAT.BAS. Lancez-le par RUN, il sauvera auto- 
matiquement le fichier TETRO.BIN. Ensuite, tapez et 
sauvez le second programme sous le nom de TETRO.BAS. 
Il ne reste qu’à faire RUN “TETRO” pour lancer le jeu. 


245 DATA 92,10,FB, CD, 18,BB,FE, 30, DA, B2, 91,FE, A, D2, B2, 91, AC17 
250 DATA F5,26,11,2E, 10, CD, 75,BB,F1, CD, SA, BB, 26, 30,94, 32, B36D 
255 DATA 03,90,06,0F, CD, 75,92, 10,FB, 26,05, 2E, 0B, CD, 75, BB, B955 
260 DATA 21,68,92, 06, 0D, ZE, CD, 5A,BB, 23, 10,F9,06, 05, CD, 75, BF5C 
265 DATA 92,10,FB,CD, 18, BB,FE, 30, DA, F2,91,FE, 33, D2, F2, 91, COAA 
270 DATA F5,26,11,2E, 10, CD, 75,BB,F4, CD, SA, BB, 26, 30, 94, 32, D100 
275 DATA 00,90,06,0F, CD, 75,92, 10,FB, C9, 4B, 45, 59,53, 4C, 45, D71A 
280 DATA 56,45, C, 20, 28, 30, 2D, 39, 29, 3A,5F,21,C3,90, 11, 4B, DB71 
285 DATA A4,06,06,C5,E5, DS, 7E, 23,66, 84,EB, BE, C2, A3, 98, D1, E4A2 
290 DATA E1,23,23,13,C1,10,EC,C9,50,45,4E,54,4F, 20, 28, 30, EA6O 
295 DATA 20,32, 29, 9A,5F,F5,E5,C5, 06, 00, 3€, 00, 26, 01, 16, 12, EEB3 
300 DATA 2E,09, 1E, 17,CD,50,BC,C1,E1, F1, C9, 30, 30, 30, 30, 30, F544 
305 DATA 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 7A, FBBE 
310 DATA 7A, 7A,30, 7A, 7A, 7A, 30, 7A, 7A, 7A, 30, 7A, 7A, 7A, TA, 30, FFO6 
315 DATA 7A, 7A, 7A, 30, 7A, 30, 30, 7A, 30, 30, 30, 30, 7A, 30, 30, 7A, 040€ 
320 DATA 30,30, 7, 30, 7A, 30, 7A, 30, 7A, 30, 30, 7A, 74, 30, 30, 30, 08CB 
325 DATA 7A,30, 30, 7A, 7, TA, 7A, 30, 7A, 30, 7A, 30, 7A, 30, 30, TA, DEG2 
330 DATA 30,30, 30, 30, 7A, 30, 30, 7A, 74, 30, 30, 30, 7A, 30, 7A, 30, 12D4 
335 DATA 7A,30, 30, 7A, 30, 30, 30, 30, 7A, 30, 30, A, 30, 7A, 30, 30, 1746 
340 DATA 7A,30, 7A, 30, 7, 30, 30, 7, 7A, 74, 30, 30, 7A, 30, 30, 7A, 1C06 
345 DATA 30,30, 7A, 30, 7A, 7A, 7A, 30, 30, 30, 30, 30, 30, 30, 30, 30, 20BE 
350 DATA 30,30, 30, 30, 30, 30, 30, 30, 30, 30, 30,68, 6B, 6B,6B, 6B, 24E2 
355 DATA 6B,68,68,68,68,68,6B,68,6B,68,68,6B,6B,6B,67, 6A, 2B8D 
360 DATA 30,30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 2E8D 
365 DATA 30, 30,69, 6A, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 3200 
370 DATA 30,30, 30, 30, 30, 30, 69, 6A, 30, 30, 30, 30, 30, 30, 30, 30, 3573 
375 DATA 30,30, 30, 30, 30, 30, 30, 30, 30, 30,69, 64, 30, 30, 30, 30, 38E6 
380 DATA 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30,69, 6A, 3C59 
385 DATA 30,30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 3F59 
390 DATA 30,30,69, 6A, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 42CC 
395 DATA 30,30, 30, 30, 30, 30,69, 64, 30, 30, 30, 30, 30, 30, 30, 30, 463F 
400 DATA 30,30, 30, 30, 30, 30, 30, 30, 30, 30, 69, 6A, 30, 30, 30, 30, 49B2 
405 DATA 30,30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30,69, 6A, 4D25 
410 DATA 30,30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 5025 








415 DATA 30, 30,69, 6A, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 5398 
420 DATA 30,30, 30, 30, 30, 30, 69, 6A, 30, 30, 30, 30, 30, 30, 30, 30, 570B 
425 DATA 30,30, 30, 30, 30, 30, 30, 30, 30, 30, 69, 64, 30, 30, 30, 30, SA7E 
430 DATA 30,30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 69, 6A, SDFi 
435 DATA 30,30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 60F1 
440 DATA 30,30, 69, 6A, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 6464 
445 DATA 30, 30, 30, 30, 30, 30,69, GA, 30, 30, 30, 30, 30, 30, 30, 30, 67D7 
450 DATA 30,30, 30, 30, 30, 30, 30, 30, 30, 30, 69,66, 6C, 6C, GC, EC, 6C36 
455 DATA 6C,6C,6C,6C, GC, 6C,6C,6C, 6C, 6C, BC, 6C, 6C, 6C, 65, 68, 72EB 
460 DATA 6B,68B, 6B, 68, 67, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 770E 
465 DATA 30,30, 30,64, 78, 78, 78, 78,69,68,68,6B,6B,6B,6B, 6B, 7D3B 
470 DATA 67,30, 30, 30, 30, 30, 30,66,6C, 6C, 6C,6C, 65, 6A, 30, 30, 8207 
475 DATA 30, 30, 30, 30, 69, 30, 30, 30, 30, 30, 30,68, 68,68, 6B, 6B, 8664 
480 DATA 67,64, 30, 30, 30, 30, 30, 30,69, 30, 30, 30, 30, 30, 30, 6A, BA4B 
485 DATA 30, 30, 30, 30,69, 6A, 30, 30, 30, 30, 30, 30, 69, 30, 30, 30, BDF4 
490 DATA 30,30, 30, 6A, 30, 30, 30, 30,69, 64, 30, 30, 30, 30, 30, 30, 9141 
495 DATA 69, 30, 30, 30, 30, 30, 30, 64, 30, 30, 30, 30,69, 6A, 30, 30, 9587 
500 DATA 30,30, 30, 30,69,68,6B,68,6B, 67, 30, 6A, 30, 30, 30, 30, JA1A 
505 DATA 69,64, 30, 30, 30, 30, 30, 30,69, 64, 30, 30, 30,69, 30, 6A, 9E 73 
510 DATA 30,30, 30, 30,69, 64, 30, 30, 30, 30, 30, 30, 69, 6A, 30, 30, 259 
515 DATA 30,69, 30,64, 30, 30, 30, 30, 69, 64, 30, 30, 30, 30, 30, 30, A63F 
520 DATA 69,64, 30, 30, 30, 69, 30, GA, 30, 30, 30, 30, 69, GA, 30, 30, AA9B 
525 DATA 30,30, 30, 30,69, 66,60, 6C, 6C, 65, 30, 64, 30, 30, 30, 30, AFZA 
530 DATA 69,64, 30, 30, 30, 30, 30, 30,69, 30, 30, 30, 30, 30, 30, 64, B310 
535 DATA 30, 30, 30, 30,69, 6A, 30, 30, 30, 30, 30, 30, 69, 30, 30, 30, B6BC 
540 DATA 30,30, 30, 64, 30, 30, 30, 30,69, 64, 30, 30, 30, 30, 30, 30, BA6Q 
545 DATA 69, 30, 30, 30, 30, 30, 30, 6A, 30, 30, 30, 30, 69, GA, 30, 30, BE4F 
550 DATA 30, 30, 30, 30,69, 30, 30, 30, 30, 30, 30, 64, 30, 30, 30, 30, C1C2 
555 DATA 69,64, 30, 30, 30, 30, 30, 30,69, 68,68,68,6B,6B, 67, GA, C703 
560 DATA 30, 30, 30, 30,69, 6A, 30, 30, 30, 30, 30, 30, 69, 6A, 30, 30, CAEQ 
565 DATA 30, 30,69, 6A, 30, 30, 30, 30, 69, GA, 30, 30, 30, 30, 30, 30, CECF 
570 DATA 69,64, 30, 30, 30, 30, 69, 6A, 30, 30, 30, 30, 69, GA, 30, 30, D328 
575 DATA 30, 30, 30, 30,69, 64, 30, 30, 30, 30, 69, 64, 30, 30, 30, 30, D70E 
580 DATA 69,64, 30, 30, 30, 30, 30, 30,69, 6A, 30, 30, 30, 30, 69, GA, DB67 
585 DATA 30, 30, 30, 30,69, 64, 30, 30, 30, 30, 30, 30, 69,66, 6C, 6C, DFCI 
590 DATA 6C,6C,65, 6A, 30, 30, 30, 30, 69, 6A, 30, 30, 30, 30, 30, 30, E41B 
595 DATA 69, 30, 30, 30, 30, 30, 30, 6A, 30, 30, 30, 30, 69, 6A, 30, 30, EB01 
600 DATA 30, 30, 30, 30,69, 30, 30, 30, 30, 30, 30,64, 30, 30, 30, 30, EB74 
605 DATA 69,64, 30, 30, 30, 30, 30, 30, 69, 30, 30, 30, 30, 30, 30, 66, EF56 
610 DATA 6C,6C,6C,6C,65,66,6C,6C,6C, 6C, 6C, 6C, 65, 30, 30, 30, F54E 
615 DATA 30,30, 30,68,6B,6B,6B, 68,67, 30, 30, 30, 30, 30, 30, 30, F9A9 
620 DATA 30, 30, 30, 30, 30, 30, 30, 6A, 78, 78, 78, 78,69, 68,6B,6B,FEEA 
625 DATA 6B,68,68,6B,67, 30, 30, 30, 30. 30, 30,66. GC. EC. BC, EC, Ua52 
630 DATA 65,64, 30, 30. 30, 30, 30, 30,69, 30. 20, 30, 40, 26, 30, 42, 07ED 
635 DAiA 41,52, 42,45, 20,42, 72,75,6k, 6F, 20, 10, 72,65, 13,65, 0D6C 
640 DATA 6E,74,65,54,45,54,52,4F;04,08, 00, 00, 00, 00, 00, 00, 104D 
645 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 104D 
650 DATA 00,00, 00, 00, 00, 00, 00, 00,00, 00, 04,08, CB, CB, CB, CB, 1379 
655 DATA CB,CB,CB,CB,CB, CB, CB, CB, C8, CB, CB, CB, CB, CB, CB, CB, 1FF9 
660 DATA C8,C8, C8, CB, CB, CB, C8, CB, CB, CB, C8, CB, 02, 08, CO, CO, 2AE3 
665 DATA CO,C0,D5,EA, C5, CA, Di, E2,85, 4A, CO, CO, CO, CO, 02, 08, 353D 
670 DATA 0C,0C, OC, OC, SD, AE, D, BE, 59, A6, OD, OE, OC, OC, OC, OC, 389D 
675 DATA 02,08, CC, CC, CC, CC, DD,EE, CD, CE, D9, E6, 8D, 4E, CC, CC, 436F 
680 DATA CC, CC, 02, 06, 30, 30, 30, 30, 75, BA, 65, 9A, 71, B2, 25, 1A, 4961 
685 DATA 30,30, 30, 30,02,08,F0,F0,F0,F0,F5,FA,ES,DA,F1, F2, 537C 
690 DATA A5,5A, F0, FO, FO, F0, 02, 08,3, 3C, 3C, C, 7D, BE, 6D,9E, 5B7B 
695 DATA 79,86, 2D, 1E, 3C, 3C, 3C, 3C, 02, 08, FC, FC, FC, FC, FD, FE, 63DA 
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700 DATA ED, DE, F9, F6, AD,5E, FC, FC, FC, FC, 02,08, C3, C3, C3, C3, 6FAS 
705 DATA D7,EB,C7,CB,D3,E3, 87, 4B, C3, C3,C3,C3, 42, 41,52, 42, 79A4 
710 DATA 45,20, 42,52,55,4E, 4F,50,52, 45,53, 45, 4E, 54,45, 20, 7E15 
715 DATA 54,45,54,52,4F,04,08,B7, 7F, 00,00, B7, 7F, 00, 00, 3F, 825A 
720 DATA 7F,00,00,3F,7F,00,00,FF,FF,00,00,FF,FF, 00, 00, 00, 8793 
725 DATA 00,00, 00,00, 00, 00, 00, 04, 08, 00, 00, BF, 7B, 00, 00, BF, 8998 
730 DATA 7B,00, 00, BF, 3F, 00, 00, BF, 3F, 00, 00,FF, FF, 00,00, FF, BFOC 
735 DATA FF,00,00,00,00, 00, 00, 00, 00, 04, 08, 00, 00, 00, 00, 00, 9017 
740 DATA 00,00, 00,FF,FF,00,00,FF,FF, 00, 00,3F, 7F, 00, 00, 3F, 9510 
745 DATA 7F,00, 00,87, 7F, 00, 00, B7, 7F, 00,00, 04, 08, 00, 00, 00, 9807 
750 DATA 00,00, 00,00, 00,00, 00,FF,FF,00,00,FF,FF, 00, 00, BF, 9CC2 
755 DATA 3F,00,00,BF, 3F, 00, 00, BF, 78, 00, 00, BF, 7B, 04, 08, B7, A136 
760 DATA 7F,00, 00,87, 7F,00, 00, B7, 7F, 00, 00, B7, 7F, 00, 00, B7, AG0E 
765 DATA 7F,00, 00,87, 7F,00, 00,87, 7F, 00,00, B7, 7F, 00,00, 04, AA33 
770 DATA 08,00, 00, BF, 7B, 00, 00, BF, 78, 00, 00, BF, 78, 00, 00, BF, AEAB 
775 DATA 78,00, 00,BF, 78, 00, 00, BF, 78, 00, 00, BF, 7B, 00, 00, BF, B390 
780 DATA 7B,04,08, 00,00, 00, 00, 00,00, 00,00,FF,FF,FF,FF,FF, B912 
785 DATA FF,FF,FF,3F,3F,3F,3F,3F,9F,3F,3F,F3,F3,F3,F3, F3, C2C6 
790 DATA F3,F3,F3,CD,00,00,C9,04,08,F3,F3,F3,F3,F3,F3,F3, CDEG 
795 DATA F3,3F,3F,3F,3F,9F,3F,3F,3F,FF,FF,FF,FF,FF,FF,FF, D7CA 
800 DATA FF,00, 00, 00,00, 00, 00, 00,00, 04, 08,00, F3, F3, 00,51, DBOC 
805 DATA F3,F3, A2, A6, 00, 0C, 59, AG, FC, FC, 59, AG, FC, FC, 59, A6, ES3F 
810 DATA 0C,0C,59,51,F3,F3, A2, 00,F3,F3,00, 04,08, F3,F3, F3, ED54 
815 DATA F3,F2,F0,FO,F1,F2,FF,FF,F1,F2,FB,F7,F1,F2,FB, F7, FCA4 
820 DATA F1,F2,FF,FF,F1,F2, FO, FO,F1,F3,F3,F3,F3, 42, 41,52, ODA 
825 DATA 42,45, 20, 42,52,55, 4E,4F,50,52, 45,53, 45, 4€, 54, 45, 0E6D 
830 DATA 20,54,45,54,52,4F,08, 05,04, 01,00, 00, 02, 03, 06, 07, 103F 
835 DATA 07,06,02, 03,00, 00,04, 01,05, 08, 08,05, 04, Of, 00, 00, 1075 
840 DATA 02,03,06,07,07,06, 02, 03,00, 00, 04, 01,05, 08, 04, 04, 10B0 
845 DATA 00, 00,00, 00,01, 03,08, 01,00, 00, 00, 00, 01, 00, 08, 02, 10C8 
850 DATA 06,04, 00, 00, 02, 04, 00, 00,02, 03, 07, 02, 02, 03, 01,03, 10EF 
855 DATA 02,00,01,00,05, 03,01, 08,02, 00,00, 00, 00, 00, 08, 04, 1111 
860 DATA 02,03, 00, 00, 02, 04, 00, 00,06, 02, 00, 00, 00, 00, 07, 02, 112D 
865 DATA 01,00,07,03,03, 00, 01,00, 05, 04,02, 00, 05, OL, 0, 00, 1140 
870 DATA 00,00, 02, 03,00, 00, 06, 07,00, 00, 00, 00, 00, 00, 01,03, 1163 
875 DATA 07,05,04,01,00, 00, 00,00, 00, 00, 05, 08, 02, 03, 00, 00, 1186 
880 DATA 01,04, 02, 04,06,08, 01, 00,00, 00, 00, 00, 07, 01,04, 04, 11AD 
885 DATA 02,00, 00,00, 00, 00, 08, 02, 06, 04, 01, 00, 00, 00, 00, 00, L1C4 
890 DATA 07,01, 07, 00,02, 00, 00, 00,00, 00, 08, 02, 01, 00, 00, 00, 11E0 
895 DATA 00,00,03, 00,05, 03, 08, 00, 00, 00, 00, 00, 04, 00, 04, 06, 1201 
900 DATA 06,02, 00, 00,00, 00,03, 00,05, 03, 09,01, 00, 00, 00, 00, 121E 
905 DATA 04,00,04,06,05, 04, 00, 00, 00, 00, 00, 00, 00, 00, 08, 01, 123€ 
910 DATA 00,00, 00, 00,00, 00, 00, 00, 06, 04, 00,00, 00, 00, 00, 00, 1248 
915 DATA 00,00, 07, 02,00, 00, 00, 00, 00, 00, 00, 00, 05, 03, C4, CO, 13DD 
920 DATA C6,C0,C8, CO,CA, CO, CC, CO, C4, CO, 14,C1,64,C1,66, C1, 1EAG 
925 DATA C6, C0,C8, CO, 18, C1,68,C1,66, C1, CA, CO, C4, CO, CE, CO, 2971 
930 DATA CB,C0,16,C1,66,C1,C4,C0,14,C1,16,C1,66, C1, CE, CO, 32D4 
935 DATA CB,C0,18,C1,16,C1,66,C1, CA, CO, 16,C1, 18, C1,66, C1, 3B94 
940 DATA 68,C1,C8, CO, 90,C5,92, C5, 94, C5, 96, C5, 98, C5, 90, C5, 4657 
945 DATA E0,C5, 30, C6, 32, C6, 92, C5,94, C5, E4, C5, 34, C6, 32, CG, 5035 
950 DATA 96,C5,90,C5,92,C5,94, C5, E2, C5, 32, C6, 90, C5, E0, C5, 5B2E 
955 DATA E2,C5, 32,C6,92,C5,94,C5,E4, CS, E2, C5, 32, C6, 96, C5, 6620 
960 DATA 92,C5,94,C5,E2,C5,E4, C5, 44, C5, 42, 44,52, 42,45, 20, GEAS 
965 DATA 42,52,55,4E,4F, 00, C0, 00,00, 01, 06,02, 02, 03, 11, 04, 710€ 
970 DATA 1A,05,0F, 06,08, 07, 15,08, 09, 09, OD, OA, 0E, OB, 08, 0C, 71C7 
975 DATA 14,0D,06,0E, OF, 0F, 18, DD, 21, D7,9A, 34, 09, 90, FE, 00, 7672 
980 DATA CA,OA,9B, 47, DD, 23, DD, 23, 10, FA, 3E, 09, DD, 46,01, DD, 7D7A 








985 DATA 4E,01,CD,32,BC,C9,06,00,0E, 00, CD, 38, BC, DD, 21,D5,83F; 

890 DATA 94,06, 10,C5,DD, 7E, 00, DD, 46, 01, DD, 4E,01,CD, 32, BC, BAD2 

985 DATA DD,23,DD,23,C1, 10, EC, C9, 06, 00, 0E, 00, CD, 38, BC, DD, 9Z0A 

1000 DATA 21,D7,94,06,08,C5, DD, 7E,00, DD, 46,01,DD, 4E,01,CD,9BE7 
1005 DATA 32,BC, DD, 23,DD,23,C1,10,EC, C9, 06,00, 0E, 00, CD, 38, 9F 74 
1010 DATA BC,06,10, 10,01,C9,C5, 78,06, 00, 0E, 00, CD, 32,BC,C1, A4ED 
1015 DATA C3,63,0B, 06, 00, DE, 00, CD, 38, BC, 06,08, 10,01,C9,C5, AA30 
1020 DATA 78,06,00, 0E, 00,CD, 32,BC,C1,C3, 7C,9B,3A, 0D,90,FE, BOE7 
1025 DATA 30,CA,F6,9B,FE,31,CA,FC,9B,FE, 32,CA,02,9C,FE, 33, BACB 
1030 DATA CA,08,9C,FE, 34,CA,0E,9C,FE, 35, CA, 14,9C, FE, 36, CA, C3BA 
1035 DATA 1A,9C,FE, 37,CA,20,9C,FE, 38, CA, 26,9C,FE,64,CA,2C,CC15 
1040 DATA 9C,FE,65,CA,32,9C,FE,66,CA,38,9C,FE,67,CA,3E,9C, DSB7 
1045 DATA FE,68,CA, 44,0C,FE, 69, CA, 4A,9C,FE, GA, CA, 50, 9C,FE, DFFA 
1050 DATA 6B,CA,56,9C,FE,6C, CA, 5C,9C,FE, 78,CA,62,9C,FE, 7A,EA03 
1055 DATA CA,68,9C,C3,6E,9C, 11,C8,96,C3,6E,9C,11,0C,97,C3,F251 
1060 DATA 6E,9C,11,1E,97,C3,6E,9C,11,30,97,C3,6E,9C,11,42,FBE6 
1065 DATA 97,C3,6E,9C, 11,54,97,C3,6E,9C, 11,66,97,C3,6E,9C, OUEE 
1070 DATA 11,/8,97,C3,6E,9C,11,8A,97,C3,6E,0C, 11,EA,96,C3,092E 
1075 DATA 6E,8C,11,B5,97,C3,6E,9C,11,D7,97,C3,6E,9C, 11,F9,11B8 
1080 DATA 97,C3,6E,9C, 11,1B,98,C3,6E,9C, 11, 3D,98, C3,6E,9C, 1960 
1085 DATA 11,5F,98,C3,6E,9C,11,81,98,C3,6E,9C, 11, A7,98,C3, 213F 
1090 DATA 6E,9C,11,C9,98,C3,6E,9C, 11,EB,98,C3,6E,9C, 2A,D5,29F8 
1095 DATA 9A,1A,4F,13,1A,47,13,F3,C5,E5,41, 1A, AE, 77,23, 13, 2FC5 
1100 DATA 10,F9,E1,CD,26,BC,C1, 10,EF,FB, C9, 3A,09,90,21,3E, 3814 
1105 DATA GA,FE,01,CA,A1,9C, 47,05,C5, 06, OA, 23, 10, FD, C1, 10, 3ED6 
1110 DATA F7,11,E6,9C,01,0A, 00, ED, BO, 3A,0A,90,21,84,9A,FE, 4619 
1115 DATA O1,CA,BF,9C,47,05,C5,06,0A, 23, 10,FD,C1,10,F7,11,4C69 
1120 DATA F0,9C,01, OA, 00,ED, BO, 3, 09,90, 21,26,99,FE,01,CA,5319 
1125 DATA DD,9C,47,05,C5,06,28,23,10,FD,C1,10,F7,11,04,9D,597B 
1130 DATA 01,28,00, ED, B0,C9, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, SCOA 
1135 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, SCDA 
1140 DATA 00,00, 00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00,00, 5COA 
1145 DATA 00,00, 00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, SCOA 
1150 DATA 00,00, 00, 00, 00,00, 00, 00,00, 00, 00,00, C0, 00,86,C7,5E17 
1155 DATA 46,C1,0C,00,88,C7,48,C1,CC, 00, BA, C7, 4A,C1,30,00,64DA 
1160 DATA 8C,C7,4C,C1,F0,00,8E,C7,4E,C1, 3C,00,90,C7,50,C1,6D32 
1165 DATA FC,00,92,C7,52,C1, 00, 00, 00, 00, 00, 00, 00, 00, 00,00, 7OYA 
1170 DATA 00,00, 00, 00, 00,00, 00, 00, C0, 00, 00, 00, 00, 00, 00, 00, 709A 
1175 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 709A 
1180 DATA 21,2C,9D,11,56,9D,01,2A.00, ED, BO,C9,DD,21,56,9D, 7704 
1165 DATA 3A,09,90,FE,01,CA. A8.9D,3D, 47. DD, 23, DD, 23,DD.253, /EEF 
1190 DATA DD,23,DD,23, D,23,10,F2,DD,66, 03, DD,6E, 02, CD, 29, 85FA 
1195 DATA BC,DD,ES,CD,C4,9D, DD, E1, DD, 74,03, DD, 75,02, DD, 7E, 9067 
1200 DATA 00,AE,77,C9,DD, 7E,05,BC,C0, DD, 7E, 04, BD, CO, 3A, 09, 9850 
1205 DATA 90,DD,21,2C,9D,FE,01,CA,EA, 9D, 3D,47,DD,23,DD, 23, AU7B 
1210 DATA DD, 23, DD, 23, DD, 23, DD, 23, 10, F2, DD, 66,03, DD, 6E, 02, A810 
215 DATA CD,29,BC.C9,3A, 11,90, DD,21,E6,9C,47,C5, DD,66,01, B036 
1220 DATA DD,6E,00, 22, DS, 9A, 34, 09,90, C6, 30, 32, OD, 90, CD, 8C, B703 
1225 DATA 9B,DD,23,DD,23,C1, 10,E4,C9, 3A, 12,90, DD, 21,F0,9C, BFB2 
1230 DATA 47,C5,DD,66,01, DD, 6E, 00, 22,D5, 9A, 3A, OA, 90, C6, 30, C678 
1235 DATA 32,0D,90,CD,8C,98, DD, 23, DD, 23,C1,10,E4,C9,3A,11,CE04 
1240 DATA 90,DD,21,E6,9C,47,C5, DD, 66,01, DD,6E, 00, 22, DS, 9A, D640 
1245 DATA 3E,08, C6, 30, 32,00, 90, CD, 8C, 9B, DD, 23, DD, 23,C1, 10, DD10 
1250 DATA E5,C9,01, 3A,62,9E,3C,FE,08,C2,71,9E, 3E, 01, 32,62,E3DF 
1255 DATA 9E,32,62,9E,ED,5F,E6,07,FE,00, C0, 3A,62,9E,C9, 3A, EBE3 
1260 DATA 00,90,FE, 02, C2,8A,9E, 3E,05,C9, ED, 5F,3C,E6,01,FE, F3D6 
1265 DATA 00,CA,97,9E,3E,04,C9, 3, 00,90, FE, 00, C2, A2,9E, 3E, FAEB 


1270 DATA 04,C9,3E, 05, C9, 34, 03,90, C6, 30, F5, 26, 11, 2E, 09, CD, 00B4 
1275 DATA 75,B8,F1,CD,5A,BB, C9, 42,52,55, 4€, 4F, 20, 42, 41,52, 07FB 
1280 DATA 42, 45,CD, 60, 94, CD, 80, 9D, 3E, 00, 32, 13, 90, CD, SA, 9B, OEFF 
1285 DATA CD, 16,90, CD,65,90, CD, 16,98, CD, A5, 9E, CD, 4B, 92, CD, 1839 
1290 DATA 63,9E, 32, 09,90, CD, 7F,9E, 32, 11,90, CD, 63, 9E, 32, OA, 1ECC 
1295 DATA 90, CD, 7F,9E, 32, 12, 90, 3E, 00, 32, 0B, 90, 32, 10,90, 32, 2429 
1300 DATA 01,90, 32, 02, 90, 32, 0F, 90, DD, 21, 04, 90, DD, 77, 00, DD, 2A12 
1305 DATA 77,01, 21,04, 90, 34, 3E, 00, 32, 0E, 90, 34,08, 90,FE, 01, 2E55 
1310 DATA CC, 19,9E, 3E, 01, 32, 0C, 90, 3A, OA, 90, 32, 09, 90, 3A, 12, 32D0 
1315 DATA 90,32, 11,90, CD, F7, 9A,CD,63,9E, 32, 0, 90, CD, 7F,JE, 3815 
1320 DATA 32, 12,90, CD, 8B,9C, CD, 3E,9E, 34, 0B,90,FE, 01, CC, 19, 423F 
1325 DATA 9E,C3,90,9F, 34,03, 90, CB, 27,57,3E, 15,92, 47,C5, 21, 48F7 
1330 DATA E6,03, 28, 7C,FE, 00, C2, 62,9F,C1, 10,F2,C9, 3E, 42, CD, 5123 
1335 DATA 1E,BB, C2, 6D,9F,06,05,C5,CD,54,9F, C1, 10, F9, CD, 73, 5964 
1340 DATA 9B,3E, 42, CD, 1E, BB, C2, 8C,9F, C3, 81,9F, CD, 38,9B, C9, 625E 
1345 DATA 3A, 10,90,FE,01,C4,54,9F,3E, 00, 32, 08, 90, 3€, 42, CD, 6843 
1350 DATA 1E,BB, CO, 3E, 12, CD, 1E, BB,C4,F6,9F, C3, 2E, A1, 3A, 10, 7007 
1355 DATA 90,FE, 01, CA, AB,9F, 34, 0E,90,FE, 01, CA, AB,9F, 3E, 00, 7703 
1360 DATA 32,08, 90, 3E, 03, CD, E, BB, C2, 37, 0,3E, OA, CD, 1E, BB, 7E0B 
1365 DATA C2, AD, A0, 3E,0B, CD, LE, BB, C2, BO, A2, 3E, 14, CD, 1E, BB, 8615 
1370 DATA C2,0F, A0, 3E, OD, CD, E, BB,C2,FF,9F,3E, 0E, CD, 1E, BB, 8DC9 
1375 DATA C2,07, A0, C3,90,0F,3E, 2F, CD, LE, BB, CO, C3, F6, 0F, 3E, 068D 
1380 DATA 01,32,0E,90, C3, AB, 9F, 3E,01, 32, 10, 90, C3, AB,9F, 3A, 9CC3 
1385 DATA 0F,90,FE, 01, CA, 90, 9F, 3A, 08, 90, FE, 01, C2, 27, AO, 3E, A3F5 
1390 DATA 00, 32,08, 90, C3, 20, A0, 3E,01, 32, 0B, 90, CD, 19,0E, 3E, A91F 
1395 DATA 01,32,0F,90,C3,90,9F, 34, 11, 90, DD, 21, E6, 9C, 47, C5, BO4A 
1400 DATA DD,66,01,DD,6E, 00, 23, 23, 7E,FE, 00, CA, 5B, AO, FE, C3, B821 
1405 DATA CA,5B, AO, 3,01, 32,08, 90, C3, 74, A, CS, 06, O7, CD, 26, BEBB 
1410 DATA BC, 10,FB,C1,7E,FE, 00, CA, 74, A0, FE, C3, CA, 74, AO, SE, CB4A 
1415 DATA 01,32,08, 90, C1, DD, 3, DD, 23, 10, C4, 3A, 08, 90,FE, 00, CE7A 
1420 DATA CA, 86, A0, C3, 90,9F, CD, 3, 9E, 34, 11,90, DD, 21,E6, QC, D?760 
1425 DATA 47,C5, DD, 66,01, DD, 6E, 00, 23, 23, DD, 74, 01, DD, 75, 00, DDES 
1430 DATA Ci, DD, 23, DD, 23, 10, EA, CD, 3E,9E, C3, 90,9F, 34, 11,90, E616 
1435 DATA DD, 21, E6, 9C, 47, C5, DD, 66,01, DD, 6E, 00, 2B, 28, 7E, FE, EEU3 
140 DATA 00,CA,D1, A0, FE, C3, CA, Di, A0, 8E, 01, 32,08, 90, C3, EA, F6FO 
1445 DATA A0,C5,06,07,CD, 26, BC, 10,FB, C1, 7E,FE, 00, CA, EA, AO, FFAD 
1450 DATA FE, C3, CA, EA, A0, 3E, 01, 32, 08,90, C1, DD, 23, DD, 23, 10, 079C 
1455 DATA C4, 3A,08,90,FE, 00, CA, FC, AO, C3, 90, 9F, CD, 3€, 9E, 34, 106B 
1460 DATA 11,90, DD, 21,E6,9C, 47, C5, DD,66, 01, DD, 6E, 00, 2B, 2B, 177D 
1465 DATA DD, 74,01, DD, 75,00, C1, DD, 23, DD, 23, 10, EA, CD, 3E,9€, 1F85 
1470 DATA C3,90,9F, 42, 41,52, 42, 45,20, 42,52,55,4E, 4F, 3A, 11, 24C4 
1475 DATA 90, DD, 21,E6,9C,47,C5,DD,66,01, DD, 6E, 00, CD, 59, A4, 2D39 
1480 DATA 7E,FE,00, CA, 50, A1,FE, C3, CA, 50, A1, 3E, 01, 32,08, 90, 34F5 
1485 DATA C1,DD, 23, DD, 23, 10, DF, 34,08, 90, FE, 00, CA, E7, A1, CD, 3094 
1490 DATA 3E,9E,CD, F4, D, CD, 8C, 9D, 3E, 01, 32,61, A4, CD, 85, A4, 4630 
1495 DATA CD, A, A2, CD, 52, A2, 34,06,90,FE, 01, CA, 98, A1,C3, 12, 4E21 
1500 DATA 9F,47,41, 4D, 45,20, 4F,56,45,52,20,21,21,42,41,52,526D 
1505 DATA 42,45, 20, 42,52,55,4E, 4F,CD, C2, A1,3E, 00, 32, 06,90, 57D0 
1510 DATA 26,06, 2E, OD, CD, 75,BB, 11,81,A1,06, 0C, 1A, CD, SA, BB, SD75 
1515 DATA 13,10,F9,06,06,21,60,EA, 2B, 7C,FE, 00, C2, B8, A1, 10, 63D8 
1520 DATA F4,C9,06, 0C, C5, 06,00, 2E, 02, 26,07, 16, 0C, 1E, OD, 3E,675A 
1525 DATA FF, CD, 50, BC, 06, 01, 2E, UD, 26,07, 16,00, 1E, 17,3E,FF,6C35 
1530 DATA CD,50,BC, Ci, 10,DE, C9, CD, 3E,9E, 34, 11,90, DD, 21, E6, 74EE 
1535 DATA 9C,47,C5, DD, 66,01, DD, 6E, 00, CD, 26, BC, CD, 26, BC, CD, 7D50 
1540 DATA 26,BC, CD, 26, BC, DD, 74, 01, DD, 75,00, C1, DD, 23, DD, 23, 8546 
1545 DATA 10,E0, CD, 3E,9E,C3,AË,9F, 00, 18,3E, 18,32, 19, A2, 21, 8B6B 
1550 DATA 4C,C7,E5,3E, 00, 32, 18, A2, 06,0, 7E,FE, 00, C2, 35, A2, 91B4 
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1555 DATA 3E,01,32, 18, A2, 23,23, 10,F1, 34,18, A2, FE, 00, CC, 69, 274D 
1560 DATA A2,E1,CD,51, A4, 3A, 19, A2, 3D, 32, 19, A2, FE, 05, CB, C3, 9F3F 
1565 DATA 22,A2,21,5C,C1,06,0C,E5, 7E,FE, 00, CA, 63, A2, 3E, 01, ASC2 
1570 DATA 32,06,90, Et, 23,23, 10,EF, C9, 3E, 02, 32, 61, A4, CD, 85, AC42 
1575 DATA A4,CD, 87, A2, 3A, 19, A2, 3D,5F,06, 00, 2E, 04, 26, 07, 16, BOEB 
1580 DATA 0C,3E,00, CD, 50, BC, C9, 34, 01,90, 3C, FE, 32, CA, 94, A2, BBOB 
1585 DATA 32,01,90, C9, 3A, 03,90, FE, 09, CA, 9D, A2, 3C, 32, 03, 90, BE7S 
1590 DATA CD, A5,9E, 3E, 00, 32, 01, 90, 3, 02, 90, C, 32, 02, 90, C9, CAB 
1595 DATA 3A,0C,90,FE,01, CA, CA, A2,FE, 02, CA, DO, A2, FE, 03, CA, CD2D 
1600 DATA D6,A2,FE, 04, CA, DC, A2, C3, CA, A2, 11,04, QD, C3, E2, A2, D717 
1605 DATA 11,0E, D, C3,E2, A2, 11,18, 9D, C3, E2, A2, 11, 22, 9D, C3, DEBA 
1610 DATA E2, A2, CD, 99, A3, 3A, 14,90, FD, 21, FA, QC, DD, 21,E6,0C, E856 
1615 DATA 47,C5,DD,E5,FD,E5,D5, 1A,D5, CD, C7, A3, Di, 13, A, CD, F2CC 
1620 DATA C7,A3,CD,69,A3,D1, FD, Et, DD, Et, C1, 13, 13, FD, 23, FD, FD80 
1625 DATA 23, DD, 23, DD, 23, 10, DA, 34,08, 90, FE, 00, CA, 22, A3, C3, D4AF 
1630 DATA 90,9F,CD, 3E, 0E, 3A, 0C, 90, 3C, 32, 0C, 90, FE, 05, CA, 34, 0B68 
1635 DATA A3,C3, 39, A3, 3E, 01, 32,00, 90, 34, 11,90, DD, 21, E6,9C, 1212 
1640 DATA FD,21,FA,9C, 47, FD,66, 01, FD, GE, 00, DD, 74, 04, DD, 75, 1A80 
1645 DATA 00, DD, 23, DD, 23, FD, 23, FD, 23, 10, EA, 36,03, 32,61, A4, 2132 
1650 DATA CD,85, 44, CD, 3E,0E,C3,90,9F, FD, 66,01, FD, 6E, 00, 7E, 2A10 
1655 DATA FE, 00, CA, 80, A3, FE, C3, CA, 80, A3, 3€, 01, 32, 08, 90, C9, 3278 
1660 DATA 06,07, CD, 26, BC, 10,FB, 7E,FE, 00, CA, 98, A3, FE, C3, CA, 3B4E 
1665 DATA 98,A3,3E,01,32,08, 90, C9, C9, 3, 11,90, DD, 21,E6, 90, 427F 
1670 DATA FD,21,FA,9C, 47, DD,66, 01, FD, 74,01, DD, 6E, 00, FD, 75, 4AED 
1675 DATA 00,DD, 23, DD, 23, FD, 23, FD, 23, 10, EA, CO, 42, 1,52, 42, 5204 
1680 DATA 45,20,42,52,55,4E, 4F, FD,66,01,FD,6E, 00, FE, 00, CA, 5889 
1685 DATA 44,A4,FE,01,CA,02, A4,FE, 02, CA, 07, AG, FE, 03, CA, OC, 602C 
1690 DATA A4,FE,04,CA, 12, A4,FE,05,CA, 18, A4,FE, 06, CA, 1F, A4, 686C 
1695 DATA FE,07, CA, 26, A4,FE, 08, CA, 2F, A4,FE,09,C3, 38, A4,C3, 7111 
1700 DATA 44,A4,23,23,C3, 44, A4, 2B, 2B, C3, 44, A4, CD, 51, A4, C3, 7870 
1705 DATA 44,A4,CD, 59, A4,C3, 44, A4, 23, 23, 23, 23, C3, 44, AG, 2B, 7F2R 
1710 DATA 2B,2B,2B,C3,44,A4,CD,51,A4, CD, 51, A4,C3, 44, A4, CD, 8757 
1715 DATA 59,A4,CD, 59, A4,C3, 44, A4, CD,51, A4, CD, 51, A4, CD, 51, 9068 
1720 DATA A4,C3,44, A4, FD, 74,04, FD, 75,00, C9,83,9a,65, da, A3, 991 A 
1725 DATA 7D,06,08, CD, 29, 8C, 10,FB, C9, 06,08, CD, 26, BC, 10,FB, QFF3 
1730 DATA C9,01,1F,07, 10,00, 00, 00, 10, 00, 00, 07,00, 10, 10,00, A12A 
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1735 DATA 10,01,00, 07,00, 10, 10,00,01,04, 42, 44,52, 42, 48,20, A2EO 
1740 DATA 42,62,55,4E,4F,F3,E5,C5,F5, JA,61,A4,FE, 01, CA,9E, AB9B 
1545 DATA A4,FE, 02, CA, A1, A4, FE, 03, CA, A7, A4, 21,62, A4, C3, AD, BAFB 
1750 DATA A4, 21,64, A4,C3, AD, A4, 21,72, A4, C3, AD, A4, 3E, 06, 06, BC77 
1755 DATA 08,C5,F5,4E, CD, 34, BD,F1,C1,3C, 23, 10,F4,F1,C1,E1, CSED 
1760 DATA FB,C9, 00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, C7B1@ 


10 LRERRRRERRERENENENENENENT] LA 
20 ? , >LB 
30 ! TETRO , )LC 
40 ? , >LD 
50 ! B.BARBE è LE 
60 ? , ?LF 
70 ! MARS 1990 | >LG 
80 ? : >LH 
90 ! ! >LJ 
100 LRRRRRRRREREEEEEEEENEEEX] >RB 


110 MEMORY &8FFF:LOAD “tetro.bin":BORDER O:0N BREAK CON 
T 

120 FOR i=0 TO 15:INK i,0:NEXT:CALL &9EC2 

130 MODE 1:PEN 1:INK 1,26 

140 taille=PEEK(&9000) :bravo=PEEK (49001) : reussi =PEEK(K9 
002) :niveau=PEEK (49003) : pento=(PEEK (49005 )#256) +PEEK (49 
004) 


>FG 
)HR 
>RN 
>VD 


Ce] 


150 fullline=(reussit50)+bravo >AD 
160 score=(pento*3)+(reussi#1000)+(taillet{0)+(niveaut{ >TU 
0)+(bravox5) 

170 LOCATE 2,5:PRINT "LEVEL:"niveau >EA 
180 LOCATE 2,7:PRINT "PENTO:"taille EE 
190 LOCATE 2,9:PRINT "FULL LINES:"fullline >NQ 
200 LOCATE 2,11:PRINT "SCORE:"score DEN 
210 CLEAR INPUT:CALL &BBOG6:CLS:GOTO 120 DHJ@ 








ie désire m'abonner à CPC HS pour 1 an au prix de 90 F (6 numéros). Par avion, 
nous consulter. Les abonnements ne sont pas rétroactifs. 











i Prénom : S 
Adresse : LE 
Code postal : Ville : 

Date Signature : + Bulletin valable jusqu'au 31 juillet 90 


Je joins à cet envoi, mon règlement de 90 F au nom de : 
EDITIONS SORACOM - La Haie de Pan - 35170 BRUZ. 
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RODY 
: ET MASTICO 
Logiciel d'éveil de 4 à 7 ans 
Le joueur qui incarne le personnage de 
Rody, doit partir à la recherche de l'étoile 
multicolore qui a disparu. 
Cette quête est traitée sous forme d'aven- 
ture, au cours de laquelle Rody, aidé par 
Mastico, le robot qui parle, devra décour- 
vrir des indices, en répondant à des ques- 
tions. Ces dernières mobilisent le sens de 
l'observation et de la réflexion chez l'en- 


font. 
Réf. GENS 010 CPC Lx 
HAMSTERS EN FOLIE 
A partir de 10 ans 
Hamsters en Folie est une simulation économi- 


que et humoristique qui vous entraîne dans les 
mystères de la gestion d'élevage de hamsters. 


CATALOGUE SORACQM 


UNE AUTRE FAÇON DE CONCEVOIR 





L'EDUCATIF 


A vous d’accoupler vos animaux, de vendre 
des hamsters, d'acheter de la nourriture, des 
cages, des magasins, de payer vos loyers el 
de faire face à loules les dépenses. 

Deux niveaux de difficulté. Sauvegarde possi- 
ble du jeu en cours. 

Disponible sur disquette 3” pour CPC 464, 
664 et 6128 

Réf. GENS 007 CPC 


LES 4 SAISONS DE L’ECRIT 
Français, expression écrite, 
vocabulaire, lecture 
Donnez à vos enfants les moyens el l'envie 

d'écrire avec : 

— Un traitement de texte simplifié qui permet 
de rédiger, d'imprimer, de sauvegarder les lextes 
de son choix. (Les commandes sont expliquées 
d'une manière très simple et conviviale]. 

- Des modules de perfectionnement pour écrire 
sans fautes de ponclualion, améliorer son style, 
enrichir son vocabulaire, trouver et dévelop- 
per des idées. 


Au lerme de ces efforts, le génie du langage 


apparaîtra. avec une surprise | 
CE/CM de 7 à 11 ans EX 


Réf. GENS 005 CPC 
6e/3e de 11 à 15 ans 
Réf. GENS 006 CPC 

DESTINATION MATHS 
Afin de participer à la grande aventure 
spatiale du XXIème siècle, développez vos 
aptitudes mathématiques. L'essentiel des 
connaissances pour CE, CM, 6ème/Sème. 
Très grande facilité d'emploi, réalisation 
exceptionnelle : décors futuristes, anima- 
tions, musique. 
CE1/CE2 
Réf. GENS 001 CPC 
CM1/CM2 
Réf. GENS 002 CPC 


6ème/5ème 
Réf. GEN5003 CPC 





ILIVRES 


Pour tous les 
passionnés 
d'ondes courtes, 
codage, 
décodage, 
réception/ 
émission, 
interfaces. 





Disquette : 250 F 








COMPILATIONS CPC 


Vous recherchez les anciens numéros 
de CPC ? 

Vous souhaitez connaître le mode 
d'emploi de certains logiciels du 
téléchargement ? 


Alors voici les compilations de 1 à 4 
et de 5 à 8 de CPC. 


+ 


Nombreuses 
routines : utilitaires 
de programmation, 
utilitaires 
graphiques, la 
gestion de fichiers, 
utilitaires 
imprimantes. 









COMPIL 1 à 4 


COMPIL 5 à 8 


Environnement 
matériel, commande 
de CPM3.0, le 
BDOS, le BIOS, 
fichiers binaires, 
éditeur de 
disquettes, 
désassembleur Z80, 
graphismes, 
caractère à la 
loupe. 

LU 





Disquette : 150 F 


_— 


? © 
pour Réussir en français et en mathématiques 


8 programmes bien remplis : 2000 questions — 50 exercices 


pour trouver tout seul 


5* essai page 1 
Complète par ce où se 


ce chat 
ce vent k 


marchand 
rendre 
reposer 
repos 
presser 
nournr 
fautiler 


Le mit Qué mu met S un vote 7 


ORTHOGRAPHE CE 


-VouF 

— OU, OUP, OU, OUt 
— EUX, EU, AU, GAU 
-h,ain,m 
—i,is, y, ile, l 


— OÙ, oÙ -cç 

— pluriel noms — accord des adjectifs 
— accord du verbe  — féminin en e 

— its, elles — Rminin des noms 

— présent — noms en ie, erie 

— an, en, ant, am — présent avoir, être — pluriel des noms en al 
— 6, 6, à, ei — pres, faire, voir — pluriel des noms en ou 
-c, que, ck,S,SS,C —passé composé  — tout, lous, toute 
-mn -#, ra; 0,10 —leur, leurs 

-S,SS — @U, eUX, eut, eue  — impératif 

- à à — on, om, ont, ond  — impératif avoir, être 

— on, ont — 6, 68, er — imparfait 

— son, sont - ile —Lur tre, avoir 
—qqu.j.g — les possessits 

—F,FF, ph —ce6, 588 

— ion, oin — cet, cette 





ORTHOGRAPHE CM 


-Souss 

— ou - où 
—gougu-couqu 
— avoir au présent 
-aouà 

— on ou ont 

— son ou sont 

— btre au présent 
— féminin des noms 
— C86 OU 866 

— présent de l'indic. 


— C6, cel, celte, ce6 — partic. passé avec 
—6ou er être 

— leur ou leurs — partic. passé avec 
— sait, sais, c'est avoir 

— Peu, peux, peut —si, d, 8y 

— près, prèt, pré — but, lus, toute 

— accord du verbe — passé s. 1er, 20%. 
— sans, s'en, sons — passé s. 3e gr. 

— mais, mes, met — condifon. présent 
— participe passé en i  —condit. p. verbe en 
—partic.passé adjectif eler 

-CŒouse . — quel, qu'elle — condit. p. verbe en 
— la, là, l'a, l'as — impératif présent eyer 

— imparfait de l'indic. — part. passé être-avor 

— quand ou qu'en 

— tant, l'en, temps 


ORTHOGRAPHE 6°-5° 


sou :onouont 

— œs où ses 

— présent de l'indicatif 
— verbes en aler ou ter 
— pluriel en eaux ou aux 
— Peu, peux, peut 

— imparfait de l'indicatif 


—eUX eu, eus 
— accord du verbe 
— {tr de l'indicatt 


—sousy;n ou ny 
— quel ou qu'elles 
— soir tête 

— dans, d'en, dent 
— forme passive 

— sans, s'en, sent 

— futur amérieur 

— nom ou verbe 

— Quand ou qu'en 

— perticipe passé 


- Elaborés par une équipe d'enseignants et d'informaticiens. 

- Testés dans de nombreuses écoles de Loire-Atlantique (lire CPC n° 
35 - Juin 1988). 

— L'expérience montre qu'après 15 à 30 heures de travail la plupart 
des élèves font dans leurs dictées moins de 10 % d'erreurs sur l'en- 
semble des règles de la disquette. 

1) En cas d'erreur, l'ordinateur pose des questions qui aident à trouver 
la bonne réponse. Sa méthode fait appel au raisonnement plus qu'à la 
mémoire. 

2) L'ordinateur chronomètre le temps de réponse. Si ce temps est 
supérieur au temps normal l'ordinateur l'aventit que s'il ne répond pas 
plus vite il continuera à faire des fautes dans ses dictées. 

3) Les résuhats sont enregistrés pour encourager l'élève. || peut voir 
que plus il travaille, plus le nombre de règles acquises augmente. 


ORTHOGRAPHE 4°-3° 


— imparfait, indic. 
-on-onn 

— imparfait indic. 

— 0001 d p. passé 
— prés. v. irrégui. 

— £06/ces/c-s' et 
— passé simple ind. 
— ad. de couleur 


— passé antérieur 
— del & &et 

— impératif prés. 
— 6/erè 

— impératif prés. 
— pronoms relais 


— accord p. passé 
— cond. présent 
— teminaison mots 


—homonymes 

— contraires 

— synonymes 

— sens prop.figuré 


— pendu 
— pendu 
— placer des mots 


— noms de métiers 
— adjectfsverbes 
— Paronymes 

— placer des mots 
— placer des mots 


CONJUGAISON 


— révision : aler, are. 
—verbesen r 3 temps 
— voir (3 temps) 


— impartait nd. 
— passé simple er-ir 


pour donner le moral 


RESULTATS ORTHOGRAPHE CM 
nombre de règles ACQUISES 


SERGE 


Pourcentage d'erreurs 





temps de travail en heures 
Von élève suivant tapez sur élève précédent tapez t 
pour voir les résultats par rêqle tapez sur ENTER 





LES 4 OPERATIONS 


— table d'addition de 2 
— table d'additon de 3 

— table d'acditon de 4 
— table d'acditon de 5 

— table d'additon de 6 

— table d'acditon de 7 

— table d'additon de 8 

— table d'additon de 9 
— addition CP niveau 1 
— addition CP niveau 2 
— addition CE 1 niveau 1 
— addition CE 1 niveau 2 
— sditon CE2 niveau 1 
— addition CE 2 niveau 2 
— sdditon CM1 niveau 
— addition CM1 niveau 2 
— addition CM2 niveau 1 
— addition CM2 niveau 2 
— mustrac. CE niveau 1 


- mustrac. CE1 niveau 2 
- mustrac. CE2 niveau 1 
- mustrac. CE2 niveau 2 - multiplie CE2 niveau 2 
- mustrac CM1 niveau 1 —muitipie CM1 veau 1 
— sustrac. CM1 niveau 2  — mutplic CM1 niveau 2 
- sustrac. CM2 niveau 1 - multiplie CM2 niveau 1 
— mustrac. CM2 niveau 2 multiplie. CM2 niveau 2 
= table de muitplic. per 2 division CE2niveau 

table de muitplic. per 3 division CM1 niveau 1 

table de mutphe per 4 — division CM1 niveau 2 
table de muitplic. per 5 —dvsion CM1 niveau 3 
table de muitplic. par 6 division CM2 niveau 1 

table de mutplic par 7  — division CM2 niveau 2 
— table de multiplie par 8  — division CM2 niveau 3 
table de mutplic. par 9 

- multiplie. CE1 niveau 1 


- multiplie. CE1 niveau 2 
— multphc. CE2 niveau 1 


MATHEMATIQUES CM 


— écrire un nomb. en chif. 
—nomb. préc., suwent 

— rangement nomb. ent. 
— décomposition 


— décimaux : écr., compar. 
— fractions 
— calcul mental 3 


— rangement des déci- 
maux 


— placer un nombre 1 
— placer un nombre 2 
— chiftre des dizaines —encadr. des déamaux 
— somme de 3 nombres —berrer les 2ros inut- 
— révision 1 les 

— som. de 4, 5, 6, 7 nomb. — révision 2 

— mesures de longueur 
— mesures de masses 
— mesures de capacités 
— monnaie 


— placer un nombre 
— rénsion 1 
— fractions ; équivslences  —les ares 
— fractions et décimaux — volumes et capacités 
= muitpl. per 10, 100, 1000 durée 
— multiples et diviseurs — décomposition des déc. 
— quotient et reste 
— mesures de masse 
— révision 3 


le programme 


pour 
464/664/6128 





EDUCATIFS : 4 NOUVEAUTES INDISPENSABLES ! 


DECLIC LECTURE 


niveau CP 
Logiciel d'apprentissage 
de la lecture de base. 


Conçu pour éviter un échec dans 
l'apprentissage de la lecture au CP, il suit 
une progression prévue pour déclencher au 
bon moment le mécanisme de la lecture. 


UTILISATION : 

- En complément de la classe de CP. 

— Pour le travail avec les parents. 

- Dans les activités de soutien, d'aide et de 
rééducation. 

- Classes et établissements spécialisés. 


OBJECTIFS : 

1- Déclenchement de la synthèse, de la 
découverte du “SavoirLire”, du mécanisme 
de la lecture. 

2- Etude systématique des lettres et des sons 
: lecture et effet sur l'orthographe d'usage. 
3- Construction et lecture de phrases : 
lecture syntaxique. 

4- Vérification de la compréhension du sens 
de petits textes. 


Réf. MC 80 CPC EI 


ANGLAIS — ALLEMAND - ITALIEN - ESPAGNOL PRIMAIRE 
niveau primaire et débutant SCIENCES PRIMAIRES 


Ca TD > TR 





Ce logiciel est destiné aux élèves des clas- L'homme 

ses primaires et début sixième et devrait niveau primaire 
leur permettre d'apprendre les premiers mots 

de vocabulaire et les premières notions de 2h 


arm 
»e fingers 


shoulder — Les os 

— Les muscles 
- La digestion 
- Les dents 

- La respiration 
- La circulation 


conjugaison. 

— DICTIONNAIRE (6 thèmes) 

Couleurs, nombres, animaux, vêtements, 
corps, divers. 

— PHRASES à compléter (6 thèmes). 

— TEXTES : Histoires à ranger dans l'ordre 
chronologique. + Possibilité d'en créer. 

— CONJUGAISON : Au présent simple de 7 verbes courants. 

Options Consultation et interrogation. Nombreux dessins et graphiques. 


Réf. anglais : MC 99 CPC _200F Réf. italien : MC 96 CPC___200F | 
Réf. allem. : MC 97 CPC___200F Réf. espag. : MC 95 CPC__200F | Réf. MC 98 CPC _200F 


ANGLAIS 43 


DT me DS 0 UT ÈRLO TU es 


DEEE 





Consultation et interrogation avec schémas et 
graphiques. 





niveau 4è et 5è LES SENS | Indique le 

Le néex est l'organe de 
CONJUGAISON : l'ODORAT. 
— Visualisation de phrases décomposées (sujet, verbe, complément}. La peau est l'organe du 
- Règles d'application des temps avec exemples, inerrogation et ajout de phrases. TOUCHER . 


VERBES IRREGULIERS : 

— Visualisation et recherche. 

— interrogation. 

— Possibilité de modifier le fichier. 


L'oreills ést l'organe de 
l'OUTE. 


La langue est l'organe du 





Réf. MC 94 CPC 
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BON DE COMMANDE 


Pour chaque article, entourez le ou les # choisis. 


ANCIENS Nos AMSTAR & CPC 
N°26-27-28-—29- 30-31 -32-33-34 
35— 36 — 38 — 39 — 40 — 41 — 42 — 43 — 44 — 45 


DISQUETTES AMSTAR & CPC 
N°20—21—22— 23-24-25 — 26-27 - 28-29 
(une disquette réunit 2 numéros consécutifs d'Amstar & CPC) 


ANCIENS Nos AMSTAR 
N°5-6-7-8-9-10-11 
12-13-14-15 
16-17-18-19-20-21 
22-23-24-25 


DISQUETTES AMSTAR 


N° 1 (du n° 1 au 8 inclus) — N° 2 (du n° 9 au 16 inclus) 


N° 3 (du n° 17 ou 25 inclus) 
ANCIENS Nos CPC 


N°10—11-13-16-18—23- 24-25-26 
27-28-2930 — 31 — 32 - 33 — 34 — 36 -37 


ANCIENS Nos HORS-SERIE CPC 
N°4-7-8-9-10-11-12-13-14-15-16 


N°17-18-19-— 20-21-22 


DISQUETTES CPC ET DISQUETTES HORS-SERIE CPC 
N°1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17-18-19 


(une disquette réunit 2 numéros consécutifs de CPC) 
HS1 — HS2 — HS3 — HS4 — HSS — HS6 — HS7 — HS8 — HS9 —HS10 —-HS11 


A expédier à : Editions SORACOM 
La Haie de Pan - 35170 BRUZ 


Franco 
Franco 


25 F (unité) 
26 F [unité] 


Abonné 
Non abonné 


110 F {unité) 
140 F (unité) 


Franco 
Franco 


Franco 
Franco 
Franco 
Franco 


15 F (unité) 
18 F [unité] 
20 F [unité] 
22 F (unité) 


110 F {unité) Franco 


Franco 


25 F [unité] 


15 F (unité) 
17 F (unité) 


Franco 
Franco 


Abonné : 
110 F (unité) 
Non abonné : 


Franco 


HS12—HS13—HS14 —HS15 —HS16 — HS17 —HS18 —HS19 —HS20 — HS21 — HS22 
ABONNEMENT 6 DISQUETTES (non rétroactif) 
DISQUETTES ‘”’ ARCADES”’ Téléchargement AMSTRAD CPC 


Câble pour téléchargement 


LOGICIELS EDUCATIFS - LIVRES - DIVERS 


149 F (unité) 
600 F 


60 F 
89F 


Franco 
Franco 


5F 
5F 


Forfait port + 10 F par logiciel et 10 % pour livres 


Pour tout envoi par avion : pour DOM-TOM et étranger 
supplément forfaitaire de 10 % par article 


Q chèque bancaire 


Q Facultatif : recommandé + 10 F par commande 
MONTANT GLOBAL 
Q mandat 


Je joins mon règlement : Q chèque postal 


PAYEZ PAR CARTE BANCAIRE 


AE PO EE Ed A GET O2 ON D 
Lil 


(inscrire les numéros de la carte, la dale et signer) 


Adresse : 


Date d'expiration Signature 


Code Postal : Ville : 


ECRIRE EN MAJUSCULES 


Afin de faciliter le traitement des commandes, nous remercions notre aimable clien- 
tèle de ne pas agrafer les chèques, et de ne rien inscrire au dos. 


Signature 


Commande : La commande doit comporter ous les renseignements demandés sur le bon de commande (désignation ou référence si celle-ci existe). Toute absence de précisions est sous la responsabilité de l'acheteur. La vente es 
conclue dès acceptation du bon de commande par notre société, sur les articles disponibles uniquement. 

Les prix : Les prix indiqués sont valables du jour de la parution du catalogue jusqu'au mois suivant ou au jour de parution du nouveau catalogue, sauf erreur dans le Ebollé de nos tarifs au moment de la fabrication du catalogue, et de 
variation de prix importante des fournisseurs. “ 
Livraison : La livraison intervient après le règlement Les délais de Ivraison étant de 10 à 15 jours environ, SORACOM ne pourra être tenue pour responsable des retards dus aux transporteurs ou aux grèves des services postaux. 
Transport : La marchandise voyage aux risques et périls du destinataire. La livraison se laisant par colis postal ou par transporteur. Les prix indiqués sur le bon de commande sont valables sur toute la France métropolitaine, + 20 F par 
article pour Outre-Mer par avion et au-dessus de 5 kg nous nous réservons la possibilité d'ajuster le prix de transport enfonc£on du coût réel de celui-ci. Pour bénéficier de recours possible nous invitons notre almable clientèle à opter pour 
l'envoi en recommandé. À réceplon des paquets, toute détérioration doit être signalée. 
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130 F + port 


Module serrure 


60 F + por 
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DECOUVREZ L'UNIVERS 
DES DISQUETTES AMSTAR & CPC 







== | he bay of te Success 


Regles du Jeu 
Difficulte (1 - 5) 1 
Initiales du joueur AA 


[:{ 
à 


+ 





RCLZ 


- [esse 


122 F EVE) 










LELE LL ELELELLLLLILLILT] 
D LL] 
Crorr  HMTCCORF Le ® 


+ 


Sites — 


Retrouvez tous les 
programmes publiés 
dans AMSTAR & CPC 
ainsi que dans le 
Hors-série. 


Plus d'erreurs de 
saisie, 

plus de nuits 
blanches devant 
l'écran et des 
surprises (démos, 
écrans...) 
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